Visual Basic - SISTEMA DE FACTURACIO EN VISUAL BASIC MENU

CODIGO FUENTES DE SISTEMA DE FATURACION EN VISUAL BASIC
Hola disculpa que te molestamo, soy de http://mygnet.com estoy creando un sistema de facturacion pero el codigo de consultal no me funciona mada un error
Error -2147217865 (80040E37) y este es el codigo de la consulta.

EL CODIGO COMPLETO LOS PUEDEN BAJAR DE ESTA DIRECION http://www.mygnet.com/codigos/vb/31/2198/ SISTEMA DE FACTURACION COMPLETO

ESTE ES EL MODULO QUE ME ESTA DANDO ERROR.
Option Explicit
Dim Clsconexion As New Classcomm1

'------------Cursores -----------------
Dim rs_tel As New ADODB.Recordset
Dim Rs_Clientes As New ADODB.Recordset
'------------Variables --------------
Dim StrTel As String
Dim strClientes As String
Dim p_Consulta As String

Private Sub Buscador_Change()
p_Consulta = Buscador.Text
End Sub

Private Sub Form_Load()
Top = 200
Left = 200
Height = 3840
Width = 6285
Call Clsconexion.AbrirConections
Call BuscarClientes
End Sub

Private Sub BuscarClientes()
If Rs_Clientes.State = 1 Then Rs_Clientes.Close
strClientes = "SELECT Codigo,Nombres,Apellidos FROM Clientes " & _
"Order by Codigo "
Rs_Clientes.Open strClientes, Classcomm1, adOpenStatic, adLockOptimistic
Set GridConsulta_De_Cliente.DataSource = Rs_Clientes.DataSource
End Sub

'Private Sub Form_Unload(Cancel As Integer)
'Call Clsconexion.cierraconections
'
'End Sub
Private Sub TxtBusqueda_Change()
Dim Rs_Clientes As New ADODB.Recordset
Dim strClientes As String
If p_Consulta = "Codigo" Then

strClientes = "Select Codigo,nombres,Apellidos from Clientes " & _
"Where Codigo Like '%" & TxtBusqueda & "%'"
Rs_Clientes.Open strClientes, Classcomm1, adOpenStatic, adLockOptimistic

End If

If p_Consulta = "Nombres" Then

strClientes = "Select Codigo,Nombres,Apellidos from Clientes " & _
"Where Nombres Like '%" & TxtBusqueda & "%'"
Rs_Clientes.Open strClientes, Classcomm1, adOpenStatic, adLockOptimistic

End If

If p_Consulta = "Apellidos" Then

strClientes = "Select Codigo,Nombres,Apellidos from Clientes " & _
"Where Apellidos Like '%" & TxtBusqueda & "%'"
Rs_Clientes.Open strClientes, Classcomm1, adOpenStatic, adLockOptimistic

End If

Set GridConsulta_De_Cliente.DataSource = Rs_Clientes.DataSource

End Sub

GRACIAS Y DISCULPA