大哥大姐；请教我；我vb学了很长时间了；最近才有点上路子有风格了；想用模块；可是刚开始没有什么感觉，整体不够好。请指点我好吗？

Question

比如说我要写一个模块中两个函数 ；一个实现数据库的连接；一个实现数据库的段开，给个帮助吧！不胜感激！

Answer 1

Option Explicit
''''''''''''''''''''''''''''''''''''''
'模块名称：Mod_Ado
'编写时间：20040201
'功能：    用ADO连接SQL
'编写者：  guoyx
''''''''''''''''''''''''''''''''''''''Public g_objcn As ADODB.Connection  '远程连接数据库
Public g_cn As ADODB.Connection
Public Type AppRegisterRec
       
        SqlDataSource As String '数据库源
        SqlDatabase As String '数据库名
        SqlID As String '数据库用户名
        SqlPassword As String '数据库密码End Type
Public AppRegister As AppRegisterRec '纪录登陆信息''''''''''''''''''''''''''''''''''''
'函数名： adoConnection
'功能：   连接数据库
'返回值： Boolean
''''''''''''''''''''''''''''''''''''
Public Function adoConnection() As Boolean
    Dim m_strSql As String
    Dim m_blnFlag As Boolean
    Dim strtemp As String * 200
    Dim iPathLen As Integer
    Dim DbServer, DatabaseName, LoginId, LoginPwd As String
    Dim connectstr As String
    
    On Error GoTo ErrorHandle    Set g_objcn = New ADODB.Connection
    g_objcn.ConnectionString = "provider=sqloledb ;" & _
                 "Data Source=" + AppRegister.SqlDataSource + _
                 ";Iniatial Catalog=" + AppRegister.SqlDatabase + ";User Id=" + AppRegister.SqlID + _
                 ";Password=" + AppRegister.SqlPassword + ";database=master" ' + AppRegister.SqlDatabase
     Debug.Print g_objcn.ConnectionString
    g_objcn.Open
    adoConnection = False
    If g_objcn.State = 1 Then
       debug.print "数据库连接成功！"
       adoConnection=true
    End If
    Exit Function
ErrorHandle:
    Call WriteDaily("错误：adoConnection" + Err.Description + Err.Source)
'    Call CautionBox("连接数据库失败！", 1)
    Resume NextEnd Function至于断开连接，你把你打开的close即可！把数据库连接的变量都set XXX=nothing.