how to connect to the microsoft access

'General Declaration
private cn As ADODB.connection
private rs As ADODB.recrdset
 
private sub form_load
Dim cn As String
Dim rs As string
Dim sql As String
Dim cmd As String
 
'creat a connection string
cmd="provider=Microsoft.jet.3.51OLEDB.3.51;
data source="location of the ms-access database.mdb"
 
'Esstablish a connection string
set cn = New ADODB.connection
with cn
.connection string=cmd
.open
end with
 
'Creat Query
sql="sql command"
 
'open the recordset
set rs= New ADODB.recordset
with rs
.open sql,cn,adOpenFordwardOnly,adLockReadOnly
Do While not rs.EOF
 
'add the ms access table
text1.additem("database fieldname")
text2.additem("database fieldname")
 
 
'move to the next record
rs.Movenext
loop
 
'close the recordset
.close
end with
set rs = Nothing
 
'close the connection string
cn.close
 
'destroy the connection object
set cn=Nothing
 
End Sub