VB用ADO写ACCESS数据库，在别的机器上写不进去。

代码如下
Private Sub Writedata(Readdata)        Dim SQL As String
        Dim Readed
        Dim Ti1, Da1
        Dim Cal1, Bale1, Gr1, Net1, Forte1, Mr1, IntWt1
            Readed = Readdata
            'Ti1 = Format(Readed(1), "hh:mm")
            'Da1 = Format(Readed(2), "yy-mm-dd")
            Ti1 = CStr(Readed(1))
            Da1 = CStr(Readed(2))
            Cal1 = CStr(Readed(3))
            Bale1 = CStr(Readed(4))
            Gr1 = CStr(Readed(5))
            Net1 = CStr(Readed(6))
            Forte1 = CStr(Readed(7))
            Mr1 = CStr(Readed(8))
            IntWt1 = CStr(Readed(9))
    
     StrConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Data_P & ";Persist Security Info=False"
     Conn.open StrConn
        SQL = "Insert Into Nowbale (Times,Dates,Calibration,BaleNUM,GrWt,NetWt,ForteNUM,Mr,IntWt) Values(  '" & Ti1 & "','" & Da1 & "','" & Cal1 & "','" & Bale1 & "','" & Gr1 & "','" & Net1 & "','" & Forte1 & "','" & Mr1 & "','" & IntWt1 & "')"
        Set RS = Conn.Execute(SQL)
     Conn.CloseEnd Sub在编译好后都能运行，就是安装到没有安装中文字库的XP英文机上使用时总是不将数据写到数据库中，也没报错程序仍然在执行，到别的机器上（英文中文）安装运行没有任何问题。