Visual Basic - datasource y datafield con codigo

Private Sub Command1_Click()

Dim cn As ADODB.Connection

Dim Rs As ADODB.Recordset

Dim sql As String

Set cn = New ADODB.Connection

Set Rs = New ADODB.Recordset

cdb1.ShowOpen

Rs.CursorType = adOpenDynamic

Rs.CursorLocation = adUseClient

Dim cadena As String

With cn

.Provider = "Microsoft.jet.oledb.4.0"

.ConnectionString = "Data Source= " & cdb1.filename

.Open

End With

sql = "SELECT * FROM calidad"

Rs.Open sql, cn, adOpenStatic, adLockReadOnly

Set Me.DataGrid1.DataSource = Rs

Set Rs = Nothing

Private WithEvents cnn As ADODB.Connection

Private WithEvents rs As ADODB.Recordset

Private Str As String

Public Sub Update():     rs.Update: End Sub

Public Function Recordcount() As Integer:     Recordcount = rs.Recordcount: End Function

Public Sub delete():    rs.delete:    rs.Update: End Sub

Public Sub MoveLast():     rs.MoveLast: End Sub

Public Sub MoveFirst():    rs.MoveFirst: End Sub

Public Sub MoveNext():    rs.MoveNext: End Sub

Private Sub Class_Terminate()

    rs.Close:     cnn.Close

    Set rs = Nothing:     Set cnn = Nothing

End Sub

Public Sub dbOpen(ByVal strODBC As String, ByVal strSQL As String)

    Set cnn = New ADODB.Connection

    cnn.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=" & strODBC

    cnn.Open

    Set rs = New ADODB.Recordset

    rs.Open strSQL, cnn, adOpenStatic, adLockOptimistic

End Sub

Private Sub Class_GetDataMember(DataMember As String, Data As Object)

    Set Data = rs

End Sub

Private Rec As New Class1

Private Sub Command1_Click()

         ' Aquí ponen el nombre del DNS y la instrucción SQL

         Rec.dbOpen "Base", "SELECT * FROM Sub"

        Text1.DataField = "Monto"

        Set Text1.DataSource = Rec

End Sub

Private Sub Command2_Click()

'Ejemplo de movenext

     Rec.MoveNext

End Sub