Set adoconn = New ADODB.Connection
Set adors = New ADODB.Recordsetadoconn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=C:\book\database\2001.mdb"
adoconn.Open sconnectionstringadors.Open "record", adoconn '表名称Set adors = adoconn.Execute("Insert Into record (号码) Values( '" & Text1(0) & "')")                     
adors.Close
adoconn.Close
Set adors = Nothing
Set adoconn = Nothing