用VB设计登陆窗体的源码和步骤

Question

本人希望用VB做一个登陆窗体，要求输入用户名，和密码后 然后出现另外一个窗体。我现在知道怎么做登陆窗体，可就是不知道怎么添加用户名和密码
所以恳请个位帮下忙，说出下详细步骤。
或者留个及时联系方法。在线等，谢谢！
麻烦说清楚点那怕我在追加50分，我不大懂，这代码是加到哪的？并且数据库怎么建立。谢谢

Answer 1

新建一个类模块，添加如下代码
Public g_Conn As Connection
Public g_UserName As String
Public g_ShowDate As Date
Sub Main()
Dim msg As String
On Error Resume Next
'msg = ConnectToDatabase("数据库名")
msg = ConnectToSQLServer("localhost", "数据库名", "sa", "")
If msg <> "" Then
MsgBox "错误," & msg, 16, "登陆"
End
End If
frmMain.Show vbModal
End Sub
'连接到数据库
Public Function ConnectToSQLServer(strHost As String, _
strDBName As String, _
strUser As String, _
strPwd As String) As String
On Error GoTo ERR_CONN
Set g_Conn = New Connection
'连接到数据库
With g_Conn
.CursorLocation = adUseClient
.CommandTimeout = 10
' 连接到SQL Server数据库
.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=True;" & _
"User ID=" & strUser & ";Initial Catalog=" & strDBName & _
";Data Source=" & strHost & ";pwd=" & strPwd
.Open
End With
ConnectToSQLServer = ""
Exit Function

ERR_CONN:
ConnectToSQLServer = Err.Description
End Function

'替换单引号
Function RealString(strSrc As String) As String
RealString = Replace(strSrc, "'", "''")
End Function