'注意c:\aaa.mdb为自己的数据库文件哦~呵呵Private Sub CmdSave_Click()Dim rs1 As ADODB.RecordsetDim myConn as new ADODB.ConnectionmyConn.open "provider=microsoft.jet.oledb.4.0;data source=c:\aaa.mdb"Set rs1 = New ADODB.Recordsetrs1.Open "select * from 招生地区表", myConn, 1, 3rs1.AddNewFor i = 0 To 3
rs1.Fields(i) = Text1...