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.Close

End Sub

在编译好后都能运行，就是安装到没有安装中文字库的XP英文机上使用时总是不将数据写到数据库中，也没报错程序仍然在执行，到别的机器上（英文中文）安装运行没有任何问题。

那就做个安装包安装后再运行