Visual Basic - Que esta mal aqui?

Hola a todos

Desearia que alguien me corrija este codigo,
funciona bien hasta el refresh
luego recoge un error en el rs
pero dispara el registro en el cbomaterial

'en delaraciones generales
Dim rs As ADODB.Recordset

'en menuabrir
Set rs = New ADODB.Recordset
on error goto error
Ado1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;_
_Persist Security Info=False;Data Source = " & Dialog1.FileName
Ado1.RecordSource = "SELECT * FROM Obra_Detalles"
Ado1.Refresh
rs.Open AdoRubros.RecordSource, AdoRubros.ConnectionString, adOpenKeyset, adLockOptimistic
Set cboMaterial.DataSource = Ado1
cboMaterial.DataField = "Rubro"
error:....

en sintesis el error esta en el recordset

Gracias
Carlos

intenta con esto, observa los cambios que hago (*)

Dim rs As NEW ADODB.Recordset '(*) cambialo

'en menuabrir
'Set rs = New ADODB.Recordset ''(*) quitalo
on error goto error

Ado1.CursorLocation=adUseClient '(*)añade esto

Ado1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;_
_Persist Security Info=False;Data Source = " & Dialog1.FileName

'Ado1.RecordSource = "SELECT * FROM Obra_Detalles" 'quitalo
rs.activeconection=Ado1 '(*) añade esto

Ado1.Refresh ''(*)quitalo

rs.Open "SELECT * FROM Obra_Detalles" '(*)cambialo

'Set cboMaterial.DataSource = rs 'que esto te saca error
'cboMaterial.DataField = "Rubro" 'no se si esta linea funciona

'si lo que intentas es llenar un comboBox con la busqueda podrias hacer esto
Do While not rs.eof
cboMaterial.add rsbuscar!Obra_Detalles
rs.movenext
loop

error:....

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
si no te funciona escribeme y con gusto te ayudo, suerte mi viejo