VB Database

Sub bersih()
TXTKOBUK = ""
txtnobuk = ""
TXTHARGA = ""
End Sub

Private Sub CmdBottom_Click()
DTBUKU.Recordset.MoveLast
MsgBox "Sudah Di Akhir Record", , "Info"
End Sub

Private Sub CmdKeluar_Click()
End
End Sub

Private Sub CmdNext_Click()
With DTBUKU.Recordset
.MoveNext
If .EOF Then
MsgBox "Sudah Akhir Record", , "Info"
.MoveLast
End If
End With
End Sub

Private Sub CmdPrevious_Click()
DTBUKU.Recordset.MovePrevious
If DTBUKU.Recordset.BOF Then
MsgBox "Sudah Awal Record", , "Info"
DTBUKU.Recordset.MoveFirst
End If
End Sub

Private Sub CmdSimpan_Click()
DTBUKU.Recordset.Update
bersih
End Sub

Private Sub CmdTambah_Click()
DTBUKU.Recordset.AddNew
bersih
TXTKOBUK.SetFocus
End Sub

Private Sub CmdTop_Click()
DTBUKU.Recordset.MoveFirst
MsgBox "Sudah Di Awal Record", , "Info"
End Sub