由于大家帮助。我把实验代码公开。其中有各位的一部分。（侵权误怪，它也源于大家）还有各位有好的代码，贴出点为了新手。

再模块中：
Option ExplicitPublic conn As ADOCE.Connection '数据库连接
Public rs As ADOCE.Recordset '公共的数据库记录集Public strDBFilename As String '数据库文件名称Public strsql As String 'SQL语句临时变量Public blnConnOpen As BooleanPublic Sub SQLCommand(strSQLCommand As String)On Error Resume NextIf connOpen = True Then
conn.Execute (strSQLCommand)
End IfIf Err Then
ErrMessageShow "SQL语句执行错误！", Err.Description & " SQLCommand", "数据库", True
Err.Clear
End IfEnd Sub
Public Sub main()Dim rsBuildOn Error Resume NextstrDBFilename = "\My Documents\Managerwww.cdb"Set rsBuild = CreateObject("ADOCE.Recordset.3.0")strsql = "CREATE DATABASE '" & strDBFilename & "'"rsBuild.Open strsql
rsBuild.CloseSet conn = CreateObject("ADOCE.Connection.3.0")
conn.Open strDBFilenameForm3.ShowEnd Sub再窗体中
Option Explicit
'Public rs1 As ADOCE.Recordset '公共的数据库记录集
'Public rs As ADOCE.Recordset '公共的数据库记录集
Public i As Integer
i = 1
Private Sub Command1_Click()'Dim rs As ADOCE.Recordset '公共的数据库记录集i = i + 1
rs.AddNew
rs.Fields("ShippingPropertyID") = Trim(Text1.Text)
rs.Fields("VoyageID") = Trim(Text2.Text)
rs.Fields("BayID") = Trim(Text3.Text)
rs.Fields("ID") = Trim(Text4.Text)
rs.Update
'Text1.Text = rs.Fields("VoyageID").Value
MsgBox rs.recordcount
End SubPrivate Sub Command4_Click()End SubPrivate Sub Command2_Click()
rs.Fields("ShippingPropertyID") = Trim(Text1.Text)
rs.Fields("VoyageID") = Trim(Text2.Text)
rs.Fields("BayID") = Trim(Text3.Text)
rs.Fields("ID") = Trim(Text4.Text)
rs.Update
End SubPrivate Sub Command3_Click()
rs.movefirst
Text1.Text = rs.Fields("ShippingPropertyID").Value
Text2.Text = rs.Fields("VoyageID").Value
Text3.Text = rs.Fields("BayID").Value
Text4.Text = rs.Fields("ID").Value
End SubPrivate Sub Form_Load()
strsql = "CREATE table AT_Shipping(ShippingPropertyID Integer, VoyageID Integer, BayID Integer, ID Integer)"
SQLCommand strsql
Set rs = CreateObject("ADOCE.Recordset.3.0")
strsql = "SELECT ShippingPropertyID, VoyageID, BayID, ID"
strsql = strsql & " FROM AT_Shipping"rs.Open strsql, conn, adOpenKeyset, adLockPessimistic
End Sub
还有不足之处，就是text框不能编辑