Vb连接access的错误,期待...在线等待.

Dim Cnn As New ADODB.Connection
Dim Rst As New ADODB.Recordset
Private Sub Form_Load()
Uclass.Text = "备件"
Cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\mydb.mdb;Persist Security Info=False"
Set Rst = New ADODB.Recordset
Rst.CursorLocation = adUseClient
Set Uname.DataSource = Rst
Set Mobi.DataSource = Rst
Set Tel.DataSource = Rst
Set Uclass.DataSource = Rst
Set comp.DataSource = Rst
Rst.Open "provider", Cnn, adOpenKeyset, adLockPessimisticUname.DataField = "客户姓名"
Mobi.DataField = "常用手机"
Tel.DataField = "联系电话"
comp.DataField = "所属公司"
Uclass.DataField = "客户类别"
End Sub
也引用的 microsoft activex   data   object   2.8   library
但是出现以下错误.
实时错误'-2147217900(80040e14)'
无效的SQL语句;期待'DELETE、'INSERT'、'PROCEDURE'、'SELECT'、或'UPDATE'.
请问如何解决？
正确的代码是什么？
--------------------编程问答-------------------- Rst.Open "provider", Cnn, adOpenKeyset, adLockPessimistic

Uname.DataField = "客户姓名" 
上面这里有点错误,应该是这样的 --------------------编程问答-------------------- 这里http://bingning.net/VB/SOURCE/database/access.html链接的详细说明和代码，参照一下吧。

补充：VB ,  基础类