VB连接SQL数据库机房问题

敲学生的时候，代码基本是模仿源码，对于源码连接数据库的方法也是一知半解，现在敲机房，没有源码，就需要学会熟练的连接数据库。

对比学生连接数据库的方法，不难发现，其实就是一个固定的语句：txtsql= "select * from 数据库表名 "，如果要 锁定到查询的行：txtsql= "select * from 数据库名 where 数据库关键字 = '" & 关键字 "'"。然后接上一句：Set mrc=Executesql(txtsql,MsgText)。如图

	Dim txtsql,MsgText As String
	Dim mrc As ADODB.Recordset
	txtsql= "select * from User_Info where userID = '" & txtUserName.Text & "'"
	Set mrc = Executesql(txtsql,MsgText)

当然，txtsql和MsgText还有mrc都是需要声明的。

这个就是通过模块中的代码连接到数据库。如图：

通过代码中的语句先到达Executesql，执行语句到cnn.Open ConnectString跳转到ConnectString。完成了数据库的连接。