【VB】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。完成了数据库的连接。