Aaa ok!
Entonces si solo quieres que te filtre al momento de que selecciones un campo en tu combobox pues seria más fácil, mira pues si sabes cuál es la clave principal de la tabla "sqcaptura", por ejemplo "idCaptura", cargas todos los id al combobox en el evento "LOAD" del formulario usando Add Item, quedaría algo parecido al código que te pongo:
Para este ejemplo se necesita:
1 Formulario
1 Componente ADO
1 Componente Datagrid
1 ComboBox
2 Botones
Primero creas un proyecto EXE Estándar, luego creas todos los controles dentro del mismo (Sin cambiarles el nombre), después copias este código tal y como está, ya te puse lo que hace cada función y evento en comentarios de vb.
'Declaracion del Recordset y la Conexion
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Private Sub Form_Load()
On Error Resume Next 'Control de errores
Me.Caption = "Filtrar mediante un ComboBox"
Me.Command1.Caption = "Seleccionar"
Me.Command2.Caption = "Mostrar Todos"
'Creamos la Conexion a la BD
Set cnn = New ADODB.Connection
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source =" & App.Path & "\bd1.mdb; " & _
"Persist Security Info=False"
cnn.CursorLocation = adUseClient
cnn.Open
'Cargamos los datos al recordset
Set rst = New ADODB.Recordset
rst.Open "Select * From sqcaptura", cnn, adOpenStatic, adLockOptimistic
'Claves primarias de la tabla
Combo1.AddItem (1)
Combo1.AddItem (2)
Combo1.AddItem (3)
Combo1.AddItem (4)
End Sub
Private Sub Command1_Click()
If Combo1.Text <> "" Then '<- Por si no se ha seleccionado un id
Else
MsgBox "Selecciona un ID", vbInformation, "Aviso"
Exit Sub
End If
'Filtramos y los mostramos en el Datagrid
rst.Filter = "id" & " LIKE " + Combo1.Text + ""
Set DataGrid1.DataSource = rst
End Sub
Private Sub Command2_Click()
'Reiniciamos el Filtro
rst.Filter = ""
Set DataGrid1.DataSource = rst
End Sub
Cuando ejecutes el proyecto verificas si hace lo que quieres y sino pues me dices y te lo modifico para que funcione como tu quieras, en mi caso no tuve a nadie que me ayudara y me puse a leer bastante para aprender pero ahora que se me da la oportunidad de ayudar lo hago con gusto porque sé que es difícil ir solos y sin ayuda, ya sabes que estoy aquí por si te atoras en otra cosa más.