Visual Basic - Visual Basic y SQL

Muchos les agradeceria la ayuda q me puedan suministrar estoy empezando a trabajar con Visual Basic 6.0 y SQL Server 7.0 alguien me puede decir como ejecuto una consulta ya tengo creado el servidor en SQL. Aqui tengo un pequeño ejemplo d lo q estoy haciendo diganme q tengo malo:

Dim BDD As Database
Dim RS As Recordset
Dim SQL As String

Set BDD = OpenDatabase("nombre_basededatos", False, False, "ODBC;UID=;PWD=;")
SQL = "select numero_t from nombre_tabla where campo= text1"
debug.print sql
Set RS = BDD.OpenRecordset(sql, dbOpenSnapshot, SQLPassThrough)

y si me pueden enviar un ejemplo se los agradezco