'引用microsoft activex data objects 2.x library'添加三个TEXT,一个COMMAND方法一:Private Sub Command1_Click()Dim Cnn As New ADODB.ConnectionDim Rs As New ADODB.RecordsetDim s As Strings = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Documents and Settings\Ballsky\桌面\进货单.accdb" '换成你自己的AC接连字符串Cnn.Open sRs.CursorLoc...