vb 连接数据库问题，郁闷～

我实在是顶不住了，找了N多资料还是搞不定，希望各位大大就我的问题帮我解答。。

数据库名称stu_data，表名user，，username,userpassword两个字段，做个最简单的登录。

用vb的，怎么连接？？我希望能做一个连接模块，后面的连接可以直接调用，例如下一次我要添加在user表中，添加用户，怎样实现？？

麻烦了，详细一点，分不是问题～！～！～！～！～

解答了，我会追加悬赏的，，谢谢谢谢了！～！～！～

'-----------------sql数据库

Public Sub main()

Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim str As String

cnn.CursorLocation = adUseClient
str = "Provider=SQLOLEDB.1;Persist Security Info =False;" _
& "User ID=sa;" _
& "Pwd=;" _
& "Initial Catalog=stu_data;" _
& "Data Source=服务器名"

cnn.Open str

end sub

'------加个command1按钮复制以下代码

Private Sub Command1_Click()
rs.Open "SELECt *From [user] WHERe username = '" & Txtuser.Text & "'", mrc, adOpenStatic
username = rs.Fields(0)
If rs.EOF Then
MsgBox "没有这个用户，请重新输入用户名!", vbOKOnly + vbExclamation, "警告"
Txtuser.SetFocus
Exit Sub
rs.Close: Set rs = Nothing
Else
If Trim(rs.Fields(1)) = Trim(Txtpwd.Text) Then
Me.Hide
Else
main1.Show
End If
rs.Close: Set rs = Nothing
Else
MsgBox "输入密码不正确，请重新输入！", vbOKOnly + vbExclamation, "警告"
Txtpwd.SetFocus
Txtpwd.Text = ""
Exit Sub
End If
End If
Exit Sub
rs.Close
Set rs = Nothing
End Sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息