请帮忙解决一下这个VB小程序，感激不尽

Private Sub Command1_Click()
ST = "根据你的输入值，拼写SQL语句如下：" & vbCrLf
ST = ST & "INSERT INTO 学生表(学号,姓名,年龄)" & vbCrLf
ST = ST & "VALUES('" & Text1 & "','" & Text2 & "','" & Text3 & "')"
MsgBox ST, vbQuestion, "信息提示"

End Sub

Private Sub Command1_Click()
Sqlstr="INSERT INTO 学生表(学号,姓名,年龄) VALUES('" & TEXT1.TEXT & "','" & TEXT2.TEXT & "','" & TEXT3.TEXT & "')"
MSGBOX "根据你的输入值，拼写SQL语句如下：" & Sqlstr

'引用ADODB执行SQL
'dim cnn as adodb.connection
'dim cmmd as adodb.command
'......
End Sub

'按下回车,即点击"确定"按钮.
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
command1.value=True'假设你的确定按钮名字是command1
End If
End Sub