Me acabo de dar cuenta de mi estupidez, tenia el codigo de conección en la seccion declaraciones generales, este es mi codigo final:
Código:
Option Explicit
Public Cnn As ADODB.Connection
Private Sub Form_Load()
Dim sCnnSQL As String
sCnnSQL = "Provider=SQLNCLI;Data Source=(local)\SQLExpress;" & _
"Integrated Security=SSPI;Persist Security info=True;Initial Catalog=master"
Set Cnn = New ADODB.Connection
Cnn.Open sCnnSQL
End Sub
Gracias por su ayuda