With cnnIn
     .CursorLocation = adUseClient
     .CommandTimeout = 10
     .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Password='';" & _
                         "Data Source=G:\pc\PH1.mdb ;Jet OLEDB:database "
     .Open
End With
        
       
strSQL = "INSERT INTO WJML(QZH,MLH,ND,AJH,YH,ZTM,ZRZ,XCSJ,BGQX,ZTSL,FZ)" & _
     "SELECT QZH,MLH,NDH,AJH,YH,ZTM,DYZRZ,WJXCS,BGQX,WJSJ,BZ FROM WJ IN 'g:\pc\db1.mdb' "
cnnIn.Execute (strSQL)在运行时候,实时错误,提示:至少一个参数没有被指定值