精选优质文档-倾情为你奉上打开VB6.0,新建工程SQL_data,新建一个EXE,并添加一个模块。如图一:添加引用和部件(如下两图)蓝色的两个,是要选中打勾的。注意,一个是“引用”,一个是“部件”。二:添加一个模块 Data_Sql,并把图下面的复制粘贴到模块中。连接SQL的模块Public conn As ADODB.ConnectionPublic rs As ADODB.RecordsetPublic addFlag As Boolean 声明部分Public Function OpenCn(ByVal Cip As String, ByVal users As String, ByVal pw As String) As Boolean 连接模块 填写数据库等信息Dim mag As StringOn Error GoTo strerrmagSet conn = New ADODB.Connectionconn.ConnectionTimeout = 25