Opening Database with code!

[Tequila_worm]

Here is how i am opening it.


MODULE:

Option Explicit
 
Global gsMasterDatabasePath As String
 
Global gsMasterConnectionString As String
 
Global Const gsADOProvider = "Microsoft.Jet.OLEDB.4.0"
Public Sub EstablishDataConnections()
 
gsMasterDatabasePath = "C:\Documents and Settings\Ado\My Documents\School\Programming\Final Assignment\Testing\db1.mdb"
gsMasterConnectionString = "Provider= " & gsADOProvider & ";Data Source=" & gsMasterDatabasePath
 
End Sub

FORM:

Option Explicit
 
Dim connTEST As ADODB.Connection
Dim rsTEST As ADODB.Recordset
 
 
Private Sub Form_Load()
    Set connTEST = New ADODB.Connection
    Call EstablishDataConnections
    connTEST.Open gsMasterConnectionString
    Set rsTEST = New ADODB.Recordset
    Dim SQL As String
    SQL = "SELECT Main.*, Info.Contents FROM Main Inner Join Info ON Main.CdId = " & _
    "Info.CdId "
    
    rsTEST.Open SQL, connTEST, adOpenStatic, adLockReadOnly, adCmdText
    connTEST.Close
    Set connTEST = Nothing
    Set rsTEST = Nothing
    
End Sub

Now what i want to do is connect my textbox to the database
i am trying this but its not working

txtText.DataSource = rsTest
txtText.DataField = rsTest!CdId


I mean basically that wont work, any ideas on how i can connect the textbox to the database?