能给一个VB和数据库连接的程序
给一个程序，有说明的。
参考答案:给你网上找来的
1、首先，在SQL Server中建立数据库（students）和表(name,列名为a1、a2、a3)
2、打开VB，新建exe工程。
3、工程/部件/选Microsoft ADO Data Control 6.0和Microsoft DatsGrid Control 6.0
4、在窗体上，放3个标签（Caption属性分别为学号、姓名、性别）、三个文本框（命名为Text1、2、3）、两个按钮（查询和保存）、一个ADODC、一个DATAGRID(Visible属性设置为False\DataSource属性设置为Adodc1)
5、用ADODC连接数据库：右键点击ADODC控件/属性/生成/选制作学生数据库的服务器名/输入SQL数据库使用者用户名、密码/允许保存密码/选择刚才制作的students数据库/测试连接成功后，确定/属性页中选择记录源/命令类型选2，表选names/确定。
6、双击保存按钮，输入下列程序：
Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "请输入学号！"
Exit Sub
End If
If Text2.Text = "" Then
MsgBox "请输入姓名！"
Exit Sub
End If
If Text3.Text = "" Then
MsgBox "请输入性别！"
Exit Sub
End If
If Not Adodc1.Recordset.EOF Then
Adodc1.Recordset.AddNew
Adodc1.Recordset("a1") = Text1.Text
Adodc1.Recordset("a2") = Text2.Text
Adodc1.Recordset("a3") = Text3.Text
Adodc1.Recordset.Update
MsgBox "信息录入成功！"
Unload Me
Me.Show
End If
End Sub
7、双击查询按钮输入下列程序：
Private Sub Command2_Click()
DataGrid1.Visible = True
End Sub
完成，运行。
方法二: