Visual Basic - problemas con sql 2005

hola a todos estoy programando con visual 6, el problema ocurre despues que me conecto al servidor de sql 2005, tengo una base de datos llamada 'agenda' y dentro una tabla 'personal'

Private Sub Command5_Click()
Dim rs As ADODB.Recordset
Dim cn As ADODB.Connection

Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset

cn.Open "Provider=SQLNCLI; " & _
"Initial Calalog=agenda; " & _
"Data Source=(local)\SQLEXPRESS; " & _
"Integrated security=SSPI; Persist security info=False; "

rs.Open "SELECT * FROM personal", cn, adOpenKeyset, adLockOptimistic

Me.MSHFlexGrid1.AllowUserResizing = flexResizeColumns

Set Me.MSHFlexGrid1.DataSource = rs

rs.Close
cn.Close

End Sub

yo creo q la conexion esta bien
pero me sale el siguiente error "el nombre del objeto 'personal' no es valido"

parece como q no reconoce a la tabla personal

como soluciono esto? gracias

proba con esto no me acuerdo como se define el recordset para SQL
Public rse As adodb.Recordset

Salvo por lo siguiente:

cn.Open "Provider=SQLNCLI; " & _
"Initial Calalog=agenda; " & _

En realidad deberías poner Initial CaTalog (Con T).

No encuentro errores en la sintáxis de VB6. Los objetos ADO están bien instanciados e inicializados. Corregi eso, debugea línea a línea y decime en qué línea te da el error que te ayudo.

Saludos!

hola gracias a los 2 por responderme, ya funciona, creo q el error fue q escribi mal la sintanxis de la conexion a la base de datos

tambien prove como dijo fede con PUBLIC en vez Dim para las variable pero lo q no me gusto de esa variante es q hay q definirla afuera en la parte de OPTION EXPLICIT

tambien encontre otra forma de hacer lo mismo:

Private Sub Command5_Click()
Dim rs As ADODB.Recordset
Dim cn As ADODB.Connection

Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset

cn.Open "Provider=SQLNCLI; " & _
"AttachDBFileName=C:\ejemplos\ej1\agenda.mdf; " & _
"Data Source= (local)\SQLEXPRESS; " & _
"Integrated security=SSPI; Persist security info=True; "

rs.Open "SELECT nombre, email, telefono, nombloc FROM localidades, personal where idloc = localidad", cn, adOpenKeyset, adLockOptimistic

Me.MSHFlexGrid1.AllowUserResizing = flexResizeColumns

Set Me.MSHFlexGrid1.DataSource = rs

rs.Close
cn.Close

End Sub

La diferencia esta en "AttachDBFileName=...." en vez de "Initial Catalog=..."
en la primera utiliso la ruta donde se encuentra el archivo de la base de datos
'agenda.mdf'