error en select (access y visual basic)

[jrp01]

Manda el resultado aun listview

sentencia = "select * from tu_table where tu_condicion"
frmbuscar.Show 1

'/*************************************/
'/**En esta forma esta un listview y en su load pones

llenaListView ListView1, sentencia

'/*************************************/

'/***esto va en un modulo***/
Public Sub llenaListView(ByRef list_View As ListView, sQuery As String, Optional llave As String, Optional iNumIcono As Integer)
Dim itmX As ListItem
Dim rs1 As ADODB.Recordset
Dim iContador As Integer
Set rs1 = New ADODB.Recordset
Set rs1 = cn.Execute(sQuery)
list_View.ListItems.Clear
list_View.ColumnHeaders.Clear
If iNumIcono = 0 Then iNumIcono = 1
For iContador = 1 To rs1.Fields.Count
list_View.ColumnHeaders.Add iContador, , rs1.Fields(iContador - 1).Name
Next iContador

Do Until rs1.EOF()
iContador = 0
Set itmX = list_View.ListItems.Add(, , rs1.Fields.Item(iContador).Value, 1, iNumIcono)
For iContador = 1 To (rs1.Fields.Count - 1)
If rs1.Fields.Item(iContador).Value = "01/01/1900" Then
itmX.SubItems(iContador) = ""
Else
If IsNull(rs1(iContador)) Then
itmX.SubItems(iContador) = ""
Else
If IsNull(rs1(iContador)) Then
itmX.SubItems(iContador) = ""
Else
itmX.SubItems(iContador) = rs1(iContador)
End If
End If
End If
Next iContador
rs1.MoveNext
Loop
Set rs1 = Nothing
End Sub

Espero que te sirva