关于vb查询access数据库

Private cCnn As New ADODB.Connection

Private Sub Form_Load()
Dim mCnnStr As String

'-------- 连接数据库
mCnnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\数据库.mdb;Jet OLEDB:DataBase Password="
cCnn.CursorLocation = adUseClient
cCnn.Mode = adModeReadWrite
cCnn.ConnectionString = mCnnStr
cCnn.Open
'-----------------------------------
Timer1.Enabled = True
Timer1.Interval = 10000 '设置10秒
End Sub

Private Sub Timer1_Timer()
On Error GoTo ErrorLoad
Dim mStr As String
Dim mRst As New ADODB.Recordset
Dim mHour As Long
Dim mMinute As Long
Dim mCode As String
Dim mName As String
Dim MsgStr As String

Timer1.Enabled = False

mStr = "select * from [表名] "
mRst.Open mStr, cCnn, adOpenKeyset, adLockReadOnly
If mRst.RecordCount > 0 Then
mRst.MoveFirst
Do While Not mRst.EOF()
mHour = Val(mRst("Hour").Value)
mMinute = Val(mRst("Minute").Value)
mCode = Trim(mRst("Code").Value) '假设有用户编号
mName = Trim(mRst("Name").Value) '假设有用户名称

If mHour = Hour(Time) And mMinute = Minute(Time) Then
MsgStr = "当前时间：" & Format(Time, "hh:mm") & vbCrLf _
& "用户编号：" & mCode & vbCrLf _
& "用户名称：" & mCode
MsgBox MsgStr, vbInformation, "提示信息"
End If

If Not mRst.EOF() Then mRst.MoveNext
Loop
End If

Timer1.Enabled = True

Exit Sub
ErrorLoad:
MsgBox "错误编号：" & Err.Number & vbCrLf & "错误信息：" & Err.Description
Timer1.Enabled = True
End Sub

Private Sub Form_Unload(Cancel As Integer)
If Not (cCnn Is Nothing) Then
If cCnn.State = adStateOpen Then cCnn.Close: Set cCnn = Nothing
End If
End Sub

=========================================================
晕,,,为什么还要绑定？上面的代码完全可以实现你的要求，如果只是为了显示，你可以把mHour和mMinute换成Text1(7)和Text1(8)

不明白你的意思