Estou usando o seguinte codigo para fazer a conexão com um banco MySQL:
Private Sub Form_Load()
Set con = New ADODB.Connection
con.ConnectionString = "driver={Mysql},server=localhost,uid=usuario,pwd=senha,database=escola"
con.Open "escola", "eu", "eu"
End Sub
cria recordset:
Public Function RS_ALUNO()
Set RS = New Recordset
RS.ActiveConnection = con
RS.CursorType = adOpenStatic
RS.LockType = adLockOptimistic
RS.Open sqll
End Function
Porem quando chamo o recordset.recordcount o sistema reotena -1..
Será que alguem já vui isso???
Desde já agradeço pela ajuda...