cara menampilkan ricord pada data base mysql

cara menampilkan ricord pada data base mysql

Dim bidang, nomor, no_kwi, bulan, tahun, kel, no_ijin As String
Sub LV()
On Error Resume Next 'untuk lanjut jika terjadi kesalahan
Dim LV As ListItem 'deklarasi lv untuk listittem
Dim stropen As String
Set rslist = New ADODB.Recordset

Set eddata = New ADODB.Recordset
Dim strsql, a As String
stropen = "select * from s_ijin where terima=36"
If rslist.State = 1 Then rslist.Close
rslist.Open stropen, koneksi, adOpenStatic, adLockReadOnly
If rslist.RecordCount > 0 Then
rslist.MoveFirst
ListView1.ListItems.Clear
Dim i As Integer
i = 1
Do While Not rslist.EOF
Set LV = ListView1.ListItems.Add(, , i)
LV.SubItems(1) = rslist!tanggal_proses
strsql = "select * from tbl_jenis_ijin where id='" & rslist!id_ijin & "'"
If eddata.State = 1 Then eddata.Close
eddata.Open strsql, koneksi, 3, 3
If eddata!jenis_ijin = 2 Then
strsql = "select * from pemohon1 where id='" & rslist!id_perusahaan & "'"
If eddata.State = 1 Then eddata.Close
eddata.Open strsql, koneksi, 3, 3
If eddata.RecordCount > 0 Then
LV.SubItems(2) = eddata!nama & "/" & eddata!alamat
LV.SubItems(3) = eddata!nama & "/" & eddata!alamat

End If

Else
strsql = "select * from pemohonpu where id='" & rslist!id_perusahaan & "'"
If eddata.State = 1 Then eddata.Close
eddata.Open strsql, koneksi, 3, 3
If eddata.RecordCount > 0 Then
LV.SubItems(2) = eddata!nama & "/" & eddata!alamat
LV.SubItems(3) = eddata!pemohon & "/" & eddata!tempatT
kel = eddata!kel
End If
End If
LV.SubItems(4) = rslist!jenis
If rslist!jenis_mohon = "B" Then
jenis_mohon = "Baru"
ElseIf rslist!jenis_mohon = "PP" Then
jenis_mohon = "Daftar Ulang"
Else
jenis_mohon = "Perubahan"
End If
LV.SubItems(5) = jenis_mohon
LV.SubItems(6) = rslist!penomoran_ijin
LV.SubItems(7) = rslist!tanggal_selesai
LV.SubItems(8) = rslist!tanggal_ambil
LV.SubItems(9) = rslist!nama_ambil
LV.SubItems(10) = rslist!no_identitas
i = i + 1
rslist.MoveNext
Loop
End If
End Sub