关于vb语句的在数据库中的实现

Private Sub Command1_Click()MyConn.Execute "INSERT [user](id ,phone ) " & _
                    " VALUES( " & _
                    " '" & Trim(Text1.Text) & "', " & _
                    " '" & Trim(Text2.Text) & "' " & _
                    " ) "
                    
      Text1.Text = ""
      Text2.Text = ""   ' 取得下一工程资料
    Set rs = MyConn.Execute("select id from [user] where phone= 3204")
    Text3.Text = Trim(rs!id)
    If Trim(Text1.Text) = "" Then
   Label3.Caption = "不能为空"
   Exit Sub
End If
If Trim(Text2.Text) = "" Then
   Label3.Caption = "不能为空"
   Exit Sub
End If
请教一下  为什么红字部分语句不起作用  数据库还是显示输入的数据？？谢谢  在线等待