Hacer pantalla de Login y consulta sql

[antonio2005pe]

Lo tengo asi.

Código:

Public CN As ADODB.Connection
Public RSbuscar As ADODB.Recordset

Sub CNBuscar(SQL As String)
    Set CN = New ADODB.Connection
    Set RSBuscar = New ADODB.Recordset
    CN.ConnectionString = "Driver={MySQL ODBC 5.1 Driver};Server=192.168.1.3;Port=3307;Option=131072;St mt=;Database=Sistema;Uid=root;Pwd=pass;"
    CN.Open
    RSBuscar.Open(SQL)
End Sub

Código:

CNBUSCAR "Select * from Users"
If RSBuscar.bof and RSBuscar.Eof then
     'no hay datos
else
     DataGridView1.DataSource = RS
end if

pero no me muestra los datos en el datagridview

Gracias,