datasource y datafield con codigo

alicehunter
11 de Enero del 2005
mi problema es este:
tengo una base de datos que puede cambiar de nombre y ruta; para abrirla uso un common dialog box, tambien uso en codigo la coneccion a esa base de datos así:

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.3.51"
.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

qué hago para enlazar los datos a textboxs?

algo como text1.datasource... o algo.

gracias