질문 전기요금계산(DB) movefirst 가 뭐지?

[쓰봉이]

"사용자번호, 사용량"을 입력받아 누진요금이 적용된 전기요금을
계산하는 프로그램입니다..

DB를 이용하여 테이블을 작성하여 저장하고,
MSFlexGrid 를 이용해서 출력하는 것입니다. data 도 쓰구요...

발표 준비를 해야하는데 벌써부터 막히는 부분이 있어서요..
안배운 함수도 몇개 있는거 같고...
에러좀 잡아주세요....




DefSng A-Z
Option Explicit
Private Sub 입력_Click()
Data1.Refresh
While Data1.Recordset.RecordCount
Data1.Recordset.Delete
Data1.Refresh
Wend
Data1.Recordset.AddNew
End Sub

Private Sub 출력_Click()
Dim sql As String, 요금 As Long, 납부액총계 As Long, 세율 As Single
Data1.Refresh
With Data1.Recordset
.MoveFirst
Do
.Edit
Select Case UCase(Left(!사용자번호, 1))
Case "A": !용도 = "단독주택": !기본요금 = 2500: 세율 = 0.1
Case "B": !용도 = "아파트": !기본요금 = 1500: 세율 = 0.1
Case "C": !용도 = "업무용": !기본요금 = 3000: 세율 = 0.08
Case "D": !용도 = "농업용": !기본요금 = 1000: 세율 = 0.05
Case "E": !용도 = "공공용": !기본요금 = 500: 세율 = 0
End Select

Select Case !사용량
Case 0 To 50: !사용요금 = !사용량 * 10
Case 51 To 100: !사용요금 = 500 + (!사용량 - 50) * 15
Case 101 To 150: !사용요금 = 1500 + (!사용량 - 100) * 20
Case 151 To 200: !사용요금 = 3000 + (!사용량 - 150) * 25
Case 201 To 250: !사용요금 = 5000 + (!사용량 - 200) * 30
Case 251 To 300: !사용요금 = 7500 + (!사용량 - 250) * 45
Case 301 To 500: !사용요금 = 13500 + (!사용량 - 300) * 50
Case Else: !사용요금 = 25000 + (!사용량 - 500) * 60
End Select
!사용요금 = !사용요금 + !기본요금
!세금 = !사용요금 * 세율
!납부액 = !사용요금 + !세금
납부액총계 = 납부액총계 + !납부액
.Update
.MoveNext
Loop Until .EOF
End With

Form2.Show
sql = "select 사용자번호,용도,사용량,사용요금,세금,납부액 from 데이터 order by 사용자번호"
Form2.Data1.RecordSource = sql
Form2.Data1.Refresh
Form2.MSFlexGrid1.AddItem "납부액총계:" & String(5, vbTab) & 납부액총계
sql = "select 사용자번호,사용량 from 데이터"
Form2.Data2.RecordSource = sql
Form2.Data2.Refresh
Unload Me
End Sub



소스구여... 에러나는 곳은 출력에서
Data1.Refresh
With Data1.Recordset
.MoveFirst <<----------------------------이부분!!!
Do
.Edit
Select Case UCase(Left(!사용자번호, 1))
Case "A": !용도 = "단독주택": !기본요금 = 2500: 세율 = 0.1