vb实现多用户登录

       利用vb实现多用户登录，主要是将vb与数据库实现链接，这个问题在作品展中我们的软件“天天迹录”的登录时用到，但是当时自己只是知道有这么个功能，但是那些代码的含义并不明白，在3个月后的我又有机会接触到它，现在敲这特别熟悉，现在也明白了其中的好多问题！，
利用数据库存储用户和密码，提高了软件运行的速度！而且可以供更多的用户使用！

Public Function ConnectString() As String  '链接数据库    '返回数据库链接    ConnectString = "provider =sqloledb;server=IP(写运行时数据库的存放地址);UID=sa;PWD=123456;database=charge"End FunctionPublic Function exectuteSQL(ByVal SQL As String, MsgString As String) As ADODB.Recordset    Dim cnn As ADODB.Connection '定义链接    Dim rst As ADODB.Recordset    Dim sTokens() As String '定义字符串        On Error GoTo executeSQL_error '异常处理        sTokens = Split(SQL) '拆分字符串函数    '用Split函数产生一个包含各个子串的数组    Set cnn = New ADODB.Connection  ' 创建连接    cnn.Open ConnectString    '判断字符串中是否含有指定内容    If InStr("insert, delete,update", UCase$(sTokens(0))) Then '$表示返回的类型明确是字符型。            cnn.Execute SQL    '执行查询语句        MsgString = sTokens(0) & "query successful"   '返回查询信息    Else        Set rst = New ADODB.Recordset '创建数据集对象        rst.Open Trim$(SQL), cnn, adOpenKeyset, adLockBatchOptimistic '返回查询结果        'adLockOptimistic 仅当调用update方法时，数据提供者锁定记录 adLockBatchOptimistic 用于批处理修改        '这个是缺省值。 adOpenKeyset 反映由其它用户所做的对记录的改变或者删除动作，但并不反映由其它用户做作的添加新记录的动作。        Set executeSQL = rst  '返回记录集对象        MsgString = "查询到" & rst.RecordCount & "记录"    End If    executeSQL_exit:    Set rst = Nothing '清空数据集对象    Set cnn = Nothing '中断连接    Exit Function    executeSQL_error:    '判断错误类型    messtring = "查询错误：" & Err.Description        Resume executeSQL_exit  'Resume 语句 在错误处理程序结束后，恢复原有的运行。    End FunctionPublic Function Testtxt(txt As String) As Boolean    If Trim(txt) = "" Then        Testtxt = False    Else        Testtxt = True    End If    End Function'创建窗体Private Sub Form_Load()    Dim txtSQL As String    Dim MsgText As String    Dim mrc As ADODB.Recordset    txtSQL = "select * from 表 "    Set mrc = ExecuteSQL(txtSQL, MsgText)     mrc.MoveFirst    Call viewData    mybookmark = mrc.Bookmark    mcclean = True         If mrc.EOF = False Then        mrc.MoveFirst        Call viewData        mybookmark = mrc.Bookmark    Else        MsgBox "没有记录！", vbOKOnly + vbExclamation, "警告"        Exit Sub    End IfEnd Sub