access 库中的insert into 总是出错！各位大侠帮帮忙，很急，谢谢！

Dim conn As New ADODB.Connection
Private Sub Command1_Click()
Dim intRespond As Integer
Dim strSql As String
If Trim(Text2.Text) <> Trim(Text3.Text) Then
   intRespond = MsgBox("您的密码输入不一致", 5, "警告")
   If intRespond = vbRetry Then
      Text2.Text = ""
      Text3.Text = ""
      Text2.SetFocus
      Exit Sub
   End If
End If
conn.Open PstrConn
AdoData.ConnectionString = PstrConn
strSql = "insert into user(用户名,密码) values (" & "'" & Trim(Text1.Text) & "' ,'" & Trim(Text2.Text) & "')"Debug.Print strSql
conn.Execute strSql, i
If i > 0 Then
   MsgBox "注册成功!", , "提示”"
End If
End Sub
以下这段是在模块中的
Option Explicit
Public PstrConn As String
Sub Main()
  Dim strDir As String
  
  If Right(App.Path, 1) <> "\" Then
    strDir = App.Path + "\register.mdb"
  Else
    strDir = App.Path + "register.mdb"
  End If
  PstrConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDir & ";Persist Security Info=False"
  If Trim(Command) = "" Then
    Form1.Show
  Else
    'FormMenu.Show
    Form1.Show
  End If
End Sub
各位大侠帮帮忙，我刚入门，这个问题我苦想了两天了，谢谢