一、界面设计
各控件名称属性分别为：label1 、text1 、label2、text2、commandok、cmdcancel
二、代码设计如下：
1、首先添加一个模块，写上以下通用声明和Sub main()：
Public conn As ADODB.Connection '通用（声明）
Sub main()
Set conn = New ADODB.Connection '通用（main）
conn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;" _
+ "User ID=sa;password=123;Initial Catalog=denglu;Data Source=127.0.0.1" '连接数据库代码
conn.Open
frmLogin.Show '首先显示登录界面。也可以在工程属性中设置启动对象为Sub main()或者frmlogin窗体
End Sub
2、在Frmlogin 代码窗口，为cmdok控件写以下代码：
Private Sub cmdok_Click()
If text1.Text = "" Then
MsgBox "用户名不能为空！", vbOKOnly + vbInformation, "友情提示"
text1.SetFocus
Exit Sub '若用户名文本框内为空，则出现提示框
End If
If text2.Text = "" Then
MsgBox "密码不能为空！", vbOKOnly + vbInformation, "友情提示"
text2.SetFocus
Exit Sub '若输入密码文本框为空，也出现提示框
End If
Dim strSQl As String
strSQl = "select * from User1 where username='" & Trim$(text1.Text) & "' and pwd='" & Trim$(text2.Text) & "' "
3、书写SQL代码，查询User1表中是否存在窗体中用户输入的信息。
Dim str As New ADODB.Recordset
Set str = New ADODB.Recordset
str.CursorLocation = adUseClient
str.Open strSQl, conn, adOpenStatic, adLockReadOnly
With str
If .State = adStateOpen Then .Close
.Open strSQl
If .EOF Then
Try_times = Try_times + 1
If Try_times >= 3 Then
MsgBox "您已连续三次输入错误，系统将自动关闭", vbOKOnly + vbCritical, "警告"
Unload Me '若用户连续输入3次错误密码，则系统关闭
Else
MsgBox "对不起，用户名不存在或密码错误 ！", vbOKOnly + vbQuestion, "警告"
text1.SetFocus
text1.Text = ""
text2.Text = ""
End If
Else
Unload Me '若登录成功，则隐藏当前窗体
Form2.Show '然后显示Form窗体
End If
End With
End Sub
Private Sub cmdCancel_Click()
End '若单击Cmdcel按钮，则结束应用程序
End Sub
4、运行中存在的问题：
代码中有Dim conn As adodb.connection，运行时显示"用户定义类型未定义"
解决方法：点击“工程”--“引用”找到“Microsoft ActiveX Data Object 2.6”
‘贰’ 求一个vb6.0+SQL数据库操作实例
这个貌似我以前写的一个系统初始化的程序
‘叁’ 如何用VB编程将数据存储到SQL数据库中
记得引用微软的控件Microsoft ActoveX Date Objects 2.6 Library
Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim constr As String
Dim sqlstr As String
constr = "driver={sql server};server=你的服务器;uid=用户名;pwd=密码;database=数据库"
con.ConnectionString = constr
con.Open
sqlstr = "insety into table (field,field1) values('" & text1.text & "','" & text2.text & "')"
SQLconn.Execute sqlstr
‘肆’ 在VB中，怎样对SQL数据库里面的数据进行操作
要保存数据到数据库，VB自带的功能是无法完成的，除非你用普通的文件保存数据。
用ADO相对简单，对于你的问题只要一个Connection对象。用它连接数据库，用它的Execute方法来执行更新数据的SQL语句。
如果你的输入跟数据库字段直接对应，也可以使用数据绑定的办法，用ADODC控件获取数据，并将文本框跟ADODC绑定。
‘伍’ VB6.0中连接打开SQL数据库的关键性语句是什么可以举例说明一下
VB6 访问SQL 数据库一般有 ADO,DAO,ODBC 几中方式，主要根据实际情况决定采用那种方式。
如：
1、在窗体中放置data 数据控件,采用 ODBC 方式访问 SQL 数据库，可以这样设置
ConStr="ODBC;Driver={SQL Server};Server=服务器名称（本地电脑名）;
Uid=sa;Pwd=;
DataBase=数据库名;LoginTimeOut=0“
设置 Data1 连接属性
With Data1
.DatabaseName = ""
.Connect = ConStr
.RecordSource = ”Select * From 数据表“ '取得数据源的SQL语句
.Refresh
End With
这样就可以连接数据库了 。
2、在程序中利用 ADO 的方式
Dim myCon As New ADODB.Connection
Dim snRes As New ADODB.Recordset
Dim ConStr$
ConStr="Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa; Password=;
Data Source =服务器名;Initial Catalog=数据库名;"
'建立数据连接
myCon.Open ConStr
‘建立数据集
snRes.Open "Select * From 表名",myCon, adOpenStatic, adLockReadOnly
这里打开数据记录集时，可以选择多种参数,可以参考一下帮助文件...