Data Base Dengan VB 6.0

Dim strCon As ADODB.Connection
Dim rsmahasiswa As ADODB.Recordset
Dim strstring As StringDim i As Integer

Private Sub cmd_akhir_Click()
rsmahasiswa.MoveLastposisiEnd Sub

Private Sub Cmd_awal_Click()
rsmahasiswa.MoveFirst
Call posisi
End Sub

Private Sub cmd_sebelum_Click()
rsmahasiswa.MovePrevious
If rsmahasiswa.BOF And rsmahasiswa.RecordCount > 0 Then
rsmahasiswa.MoveFirst
Exit Sub
End If
posisi
End Sub

Private Sub cmd_sesudah_Click()
rsmahasiswa.MoveNextIf rsmahasiswa.BOF Then
rsmahasiswa.MoveLast
Exit Sub
End If
posisi
End Sub

Private Sub Form_Load()
Set strCon = New ADODB.Connection
Set rsmahasiswa = New ADODB.Recordset
strstring = "Provider= SQLOLEDB.1" & _
"Persist security info = false;" & _
"initial catalog=akademik_j3c306203;" & _
"User ID=sa; password=sa; Data Source=.;"
strCon.Open strstring

'menggunakan user client untuk mengaktifkan property
'absolute position
rsmahasiswa.CursorLocation = adUseClient

'membuat query
strsql = "select * from mahasiswa"

'buka koneksi
rsmahasiswa.Open strsql, strCon, adOpenForwardOnly, adLockReadOnly

'masukan data dalam list
Do Until rsmahasiswa.EOF
Lst_nama.AddItem rsmahasiswa!nama
rsmahasiswa.MoveNext
Loop rsmahasiswa.MoveFirst
Txt_nama.Text = rsmahasiswa!nama
Lst_nama.ListIndex = 0
End Sub

Sub posisi()
i = rsmahasiswa.AbsolutePosition
Lbl_jmlrecord.Caption = i
Lst_nama.ListIndex = i - 1
Txt_nama.Text = rsmahasiswa!nama
End Sub