vb+access 添加数据到数据库，提示“不可识别的数据库格式” ，哪位大神帮忙指点一下！

[Freebo1]

Private Sub Command1_Click()
 
 Dim dbpath As String
 Dim strsql As String
 dbpath = "D:\Telephone Enquiry\data.mdb"
 
 Set conn = CreateObject("ADODB.Connection")
 
 conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpath
 
 Set rs = CreateObject("ADODB.Recordset")
 
 rs.Open "telphone", conn, 1, 3
 
 rs.AddNew
 rs.Fields("序号排列ID").Value = Text1.Text
 rs.Fields("员工所属部门").Value = Text2.Text
 rs.Fields("坐席使用人").Value = Text3.Text
 rs.Fields("员工所属坐席").Value = Text4.Text
 rs.Fields("固话或号码1").Value = Text5.Text
 
 rs.Update
 
 Text1.Text = ""
 Text2.Text = ""
 Text3.Text = ""
 Text4.Text = ""
 Text5.Text = ""
 
 rs.Close
 conn.Close
 
End Sub