关于如何连接数据库的问题，小白......

Private Sub Form_Load()
Set db = Workspaces(0).OpenDatabase("Database\Data.mdb", False)
Set rst = db.OpenRecordset("Pass", dbOpenTable)
rst.MoveLast
Rec = rst.RecordCount
ReDim Asc(Rec - 1)
rst.MoveFirst
For i = 1 To Rec
    comPer.AddItem rst.Fields("名称")
    Asc(i - 1) = Val(rst.Fields("密码"))
    rst.MoveNext
    If rst.EOF Then Exit For
Next
comPer.Text = ""
txtPass.Text = ""
End Sub
是前两句连接的数据库么？我不太懂VB，求各位高手赐教。