Visual Basic - ver todos los registros de un msflexgrid

Life is soft - evento anual de software empresarial
   
Vista:

ver todos los registros de un msflexgrid

Publicado por manuel alejandro guadarrama me (1 intervención) el 16/02/2010 20:17:24
Estoy haciendo un proyecto en el que guardo registros en un base de datos en acces, mi conexion es la siguiente, esta la declare en un modulo:
Public DB As ADODB.Connection
Public rs As ADODB.Recordset

Public Sub Conectate()
Set DB = New ADODB.Connection
Set rs = New ADODB.Recordset
DB.Open "Provider = Microsoft.Jet.OleDb.4.0; Data Source=" & App.Path & "\EXTRUSORAS.mdb; Persist Security Info=false"
End Sub

Al momento de agregar un registro si lo guarda bien y todo, pero cuando quiero ver todos los registros me manda un errorr ("La variable de tipo object o la variable de bloque with no esta establecida"), este error me lo manda en el siguiete codigo:

Private Sub cmdRegistros_Click()
Conectate
busca = "SELECT * FROM Extrusion1"
rs.Open busca, DB, adOpenDynamic, adLockBatchOptimistic
Set Grid.DataSource = rs (EN ESTA LINEA ME MANDA EL ERROR)
Me.Caption = "Registros encontrados: " & CStr(rs.RecordCount)
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder