主题：数据库用户名和密码读取

If UserName = "张三" AndAlso Password = "888" Then  '实际使用的时候,请改为从数据库读取用户名和密码进行比较
    Verified  = True
ElseIf Username = "李四" AndAlso Password="999" Then
    Verified  = True
End If

改成，比如

Dim dr As DataRow
dr = DataTables("users表").Find("Name = '" & UserName & "'") 
If dr IsNot Nothing AndAlso dr("config").contains(MD5Encrypt(password)) Then
    Verified  = True
End If