Option Explicit
Dim Cn As New ADODB.Connection
Public Rs As New ADODB.Recordset
 
Function db_connect()
 
    If Cn.State = adStateOpen Then Cn.Close
    With Cn
        .CursorLocation = adUseClient
        .Mode = adModeShareDenyNone
        .Provider = "SQLOLEDB.1"
        .ConnectionString = "Data Source=127.0.0.1\phpmyadmin\"
        .Open
    End With
End Function
 
Private Sub Command1_Click()
db_connect
End Sub