永远的毁灭公爵解说:老鸟看下我这段代码错在什么地方

Private Sub Command5_Click()
Dim lj_mdb As ADODB.Connection '连接数据库
Dim lj_xls As ADODB.Connection '连接EXCEL表
Dim ls_jl As ADODB.Recordset '记录EXCEL表内容

Dim dz_mdb As String '数据库地址
Dim dz_xks As String '工作表地址

dz_mdb = App.Path & "/数据管理/系统数据库.mdb" '指定数据库相对路径
CommonDialog1.ShowOpen '打开对话框
dz_xls = CommonDialog1.FileName '确定需要导入的工作表位置
lj_mdb.ConnectionString "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & dz_mdb & " ;Mode=ReadWrite;Persist Security Info=False" '初始化数据库连接
lj_xls.ConnectionString "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=false;Data Source=" & dz_xls & ";Extended Properties='Excel 8.0;HDR=Yes;IMEX=1'" '初始化工作表连接
lj_mdb.Open
lj_xls.Open
ls_jl.Open "select * From [Sheet1$]", lj_xls, 1, 1
If ls_jl.EOF = True Then
Exit Sub
End If
While Not ls_jl.EOF
lj_mdb.Execute "Insert Into 客户基本资料详情表(客户编号)Values('" & ls_jl(0) & "')"
lj_mdb.Execute "Insert Into 客户基本资料详情表(姓名)Values('" & ls_jl(0) & "')"
lj_mdb.Execute "Insert Into 客户基本资料详情表(帐户类型)Values('" & ls_jl(0) & "')"
lj_mdb.Execute "Insert Into 客户基本资料详情表(帐号)Values('" & ls_jl(0) & "')"
lj_mdb.Execute "Insert Into 客户基本资料详情表(金额)Values('" & ls_jl(0) & "')"
lj_mdb.Execute "Insert Into 客户基本资料详情表(开户时间)Values('" & ls_jl(0) & "')"
lj_mdb.Execute "Insert Into 客户基本资料详情表(销户时间)Values('" & ls_jl(0) & "')"
lj_mdb.Execute "Insert Into 客户基本资料详情表(定期限额)Values('" & ls_jl(0) & "')"
lj_mdb.Execute "Insert Into 客户基本资料详情表(理财卡号)Values('" & ls_jl(0) & "')"
lj_mdb.Execute "Insert Into 客户基本资料详情表(联系固话)Values('" & ls_jl(0) & "')"
lj_mdb.Execute "Insert Into 客户基本资料详情表(移动电话)Values('" & ls_jl(0) & "')"
lj_mdb.Execute "Insert Into 客户基本资料详情表(客户地址)Values('" & ls_jl(0) & "')"
lj_mdb.Execute "Insert Into 客户基本资料详情表(电子邮件)Values('" & ls_jl(0) & "')"
lj_mdb.Execute "Insert Into 客户基本资料详情表(QQ号码)Values('" & ls_jl(0) & "')"
lj_mdb.Execute "Insert Into 客户基本资料详情表(客户经理)Values('" & ls_jl(0) & "')"
lj_mdb.Execute "Insert Into 客户基本资料详情表(综合贡献度)Values('" & ls_jl(0) & "')"
lj_mdb.Execute "Insert Into 客户基本资料详情表(客户生日)Values('" & ls_jl(0) & "')"
lj_mdb.Execute "Insert Into 客户基本资料详情表(客户等级)Values('" & ls_jl(0) & "')"
lj_mdb.Execute "Insert Into 客户基本资料详情表(其他)Values('" & ls_jl(0) & "')"
ls_jl.MoveNext
Wend
ls_jl.Close
lj_mdb.Close
lj_xls.Close
Set ls_jl = Nothing
End Sub