SQL - Buscar en Visual Basic con el adodc

Soy evidentemente un novato en el area de la programacion y necesitto urgentemente el codigo para realizar una busqueda en Visual Basic con el objeto adodc enlazando con sql server

Bueno, aunque no es un foro de VB:

Global cn As ADODB.Connection
Global cmd1 As ADODB.Command
Global rsset As ADODB.Recordset

Const BLOCKSIZE As Long = 4096

Private Sub Form_Activate()
Dim ConnectString As String
Dim anerror As ADODB.Error
Dim Sql As String
Dim i As Integer

'Para el control de errores
On Error GoTo handler

ConnectString = "uid=operaciones;pwd=sendbip;server=ADN_BIPER;" & _
"driver={SQL Server};database=REUNE;" & "DSN='';"

'Ejecuto un procedimiento
Sql = "EXEC pr_RVReporteHora"
'Ejecuto un Select
Sql = "SELECT * FROM PUBS WHERE PUBID = 12345"
Set cn = New ADODB.Connection
cn.ConnectionString = ConnectString
cn.Open
Set rsset = New ADODB.Recordset
rsset.Open Sql, cn, adOpenStatic, adLockReadOnly
i = 0

While Not rsset.EOF
rtfConsulta.Text = rtfConsulta.Text & rsset(0) & vbCr
rsset.MoveNext
Wend
Exit Sub

handler:
For Each anerror In cn.Errors
Debug.Print anerror.Number & ": " & anerror.Description & " - " & anerror.SQLState
Next anerror
End Sub