Visual Basic - Como crea sentencia SQL

Hola a todos, tengo la siguiente instrucciones, empleo environment donde tengo alguna sentencia con sql. como hago para crear una sentencia directa en la siguente instrucion que tengo dentro del sub.
(LO QUE TENGO FUNCIONA, LO QUE NECESITO ES CREAR UNA SENTENCIA DIRECTA ENTRE LOS CONEXION Y COMO EVALUO

Private Sub LlenarDatos()
With cConexion 'esta es la conexion la la base

' aqui necesito crear la sentencia sql para buscar los datos que necesito.

.Fact_BuscaProv cEmpresa, cRutpro

'esta la que necesito remplazar

If .rsFact_BuscaProv.RecordCount <> 0 Then
Do While .rsFact_BuscaProv.EOF = False

cLista.AddItem " " & vbTab & .rsFact_BuscaProv!rutp & vbTab & .rsFact_BuscaProv!fact_total
.rsFact_BuscaProv.MoveNext
Loop
End If
.rsFact_BuscaProv.Close
End With
End Sub

NOTA: .rsFact_Busca esta definido en conexion es la instruccion que necesito remplazar para realizar un sentencia directa dento del conexion.. ESPERO HABERME EXPLICADO..... AYUDA PLEESSE...