VB向数据库添加数据(有代码)

Private Sub cmdOk_Click()
If Admin_Name.Text = "" Or Admin_PassWord.Text = "" Or Admin_RegPassWord.Text = "" Then
MsgBox "用户名或密码不能为空，请返回输入！", vbExclamation + vbOKOnly, "提示！"
Admin_Name.SetFocus
ElseIf Admin_PassWord.Text <> Admin_RegPassWord.Text Then
MsgBox "两次密码输入不一致，重新输入！", vbExclamation + vbOKOnly, "提示！"
Admin_PassWord.Text = ""
Admin_RegPassWord.Text = ""
Admin_PassWord.SetFocus
Else
Dim Conn As New ADODB.Connection
Dim StrSql As String
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Data\Hydata.mdb" & ";Mode=ReadWrite;Persist Security Info=False"

'向数据库HYDATA里面的ADMIN表添加窗体上文本框里面的内容。这里应该怎么写呢？
'谢谢了
Conn.Close
End If
End Sub

================================