Private Sub Form_Load()
cnn = "provider=microsoft.jet.oledb.3.51;persist security info=false;data source=f:\mydb\studentdata"Set db = New ADODB.Connection
db.Open cnn
Set rst = New ADODB.Recordset
rst.CursorType = adOpenDynamic
rst.LockType = allockpessimistic
rst.Open "student", db, , , adCmdTable
Text1.Text = rst.Fields("studentid")
Text2.Text = rst.Fields("studentname")
Text3.Text = rst.Fields("sex")End Sub