Module Utama

Public dbcon As New ADODB.Connection

Public SQL As String

Public RsFind As New ADODB.Recordset

Public RsTmp As New ADODB.Recordset



Sub bukaDatabase()

With dbconn

    .ConnectionString = "Driver={MySQL ODBC 5.1 Driver};Server=localhost;Option=131072;Stmt=;Database=mysql;" & _

        " User=root;Password=6664691;"

    .CursorLocation = adUseClient

    .Open

End With

End Sub