Visual Basic - Coneccion con SQL Server

Estoy ajecutando consultas con VB con controles ADO y DAO y me marca un error de que espira el tiempo "ejecución cancelada". Tal vez sea porque estoy haciendo la consulta filtrondo por campos que no son llave y no retorna los registros.

Mira yo te aconsejo la sgte manera para que te conectes a sql server
creas un modulo y en modulo escribes lo sgte :
public cn as new adodb.connection
Private Sub Main()
Set cn = New ADODB.Connection
With cn
.Provider = "sqloledb.1"
.ConnectionString = "data source=nombre del servidor;initial catalog=nombrede la bd;user id=nombre de inicio de secion;"
.Open
End With
frmprincipal.Show
end sub