Visual Basic - ver todos los registros de un msflexgrid

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