Modul Koneksi

Public conn As New ADODB.Connection

Function koneksi() As Boolean
    Set conn = New ADODB.Connection
    conn.Open "driver=mysql odbc 5.1 driver;server=localhost;user=root;database=kampus"
    conn.CursorLocation = adUseClient
    koneksi = True
End Function

Sub main()
    If koneksi = True Then
        MsgBox "database terkoneksi"
        Form1.Show
    Else
        MsgBox "database gagal"
        End
    End If
End Sub