untuk koneksi kita siapkan module
isi dengan coding :
Public MyConn As New MYSQL_CONNECTION
dan pada form akun ini kita isi coding untuk konek ke sql
Private Sub Form_Activate()
Dim sql As String
Dim rs As MYSQL_RS
sql = "SELECT * FROM akun"
Set rs = MyConn.Execute(sql)
If MyConn.Error.Number <> 0 Then MsgBox MyConn.Error.Description
Do While Not rs.EOF
Set lv = lvw.ListItems.Add(, , rs.Fields(0).Value)
lv.ListSubItems.Add , , rs.Fields(1).Value
...
