为什么远程数据录入不进去？请大家帮忙？

Question

我用VB+SQL写了一个程序，客户端支持远程访问数据库。在本地录入数据库时没有什么问题，但在远程录入的时候就有点问题。只有第一个表中的数据能录入，后表中的数据就录入不了，请各位高手帮帮忙。

Answer 1

If MsgBox("你真的要录入" & CustormerName & "的客户信息吗？", vbInformation + vbOKCancel, "录入") = vbOK Then
                        With Adobasicinfo
                            .Recordset.AddNew
                            .Recordset("CUSTOMER_NO") = Trim(Text1(0))
                            .Recordset("CUSTOMER_TYPE") = CboCustormerType.Text
                            .Recordset("CUSTOMER_NAME") = Trim(Text1(1))
                            .Recordset("CUSTOMER_SEX") = Combo2.Text
                            .Recordset("CUSTOMER_AGE") = DTPicker2.Value
                            .Recordset("CUSTOMER_ID") = Trim(Text1(9))
                            .Recordset("CUSTOMER_MARRIAGE") = Combo1.Text
                            .Recordset("CUSTOMER_MOBILE_TEL") = Trim(Text1(4))
                            .Recordset("CUSTOMER_WORK_TEL") = Trim(Text1(8))
                            .Recordset("CUSTOMER_HOME_TEL") = Trim(Text1(7))
                            .Recordset("CUSTOMER_Flat") = CustormerFlat  '客户资料录入的业务平台
                            .Recordset("CUSTOMER_INPUT_DATE") = Now         '客户资料录入时间
                            .Recordset.Update
                        End With
                        
                        
                        With Adoworkinfo
                            .Recordset.AddNew
                            .Recordset("CUSTOMER_NO") = Trim(Text1(0))
                            .Recordset("CUSTOMER_WORK_NAME") = Trim(Text1(5)) '工作单位
                            .Recordset("CUSTOMER_WORK_TYPE") = Trim(Text1(12))
                            .Recordset("CUSTOMER_WORK_ADDRESS") = Trim(Text1(10))
                            .Recordset("CUSTOMER_WORK_RANK") = Trim(Text1(11))
                            .Recordset("CUSTOMER_MONTH_INCOME") = Trim(Text1(6))
                            .Recordset.Update
                        End With
                        
                        
                                                
                        With Adohomeinfo
                            .Recordset.AddNew
                            .Recordset("CUSTOMER_NO") = Trim(Text1(0))
                            .Recordset("CUSTOMER_HOME_ADDRESS") = Trim(Text1(2))
                            .Recordset("CUSTOMER_HOME_YEAR") = Trim(Text1(13))             '房屋建筑年限
                            .Recordset("CUSTOMER_HOME_HOST") = Trim(Text1(3))      '房屋权属
                            .Recordset.Update
                        End With
                        
只有第一个表中的数据能正常录入，后面的表录入进去，也不报错