VB6怎么建立一个数据库，需要把代码封装到模块里，给我一个例子

在VB6中创建数据库并将其封装到模块里的步骤如下：

1. **启动Visual Basic 6**:
打开Visual Basic 6 IDE，并新建一个工程（Project）。

2. **添加数据库连接组件**:
在工具箱（Toolbox）中找到"Microsoft ADO Data Objects"，通常位于数据相关组件下，点击ADO连接控件（如ADODB.Connection）拖放到窗体或模块（Module）中。

3. **编写模块代码**:
双击模块图标打开代码编辑窗口。在这里，你可以编写用于连接、操作数据库的VBA代码。例如，这是创建数据库连接的基本代码：

Private Sub ConnectToDatabase()
    Dim conn As New ADODB.Connection
    Dim strConn As String
    
    ' 设置数据库连接字符串
    strConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\YourDatabase.accdb;"
    
    ' 连接到数据库
    conn.Open strConn
    
    ' ... 其他数据库操作代码 ...
    
    ' 关闭连接时记得释放资源
    conn.Close
End Sub

4. **封装功能**:
如果你想将上述代码封装成可以复用的功能，比如创建表或查询数据，可以定义更多的子函数。例如，创建表的代码可以这样写：

Private Function CreateTable(ByVal TableName As String)
    Dim cmd As New ADODB.Command
    cmd.ActiveConnection = conn ' 假设conn是已连接的对象

    ' 创建表SQL语句
    Dim strSQL As String
    strSQL = "CREATE TABLE " & TableName & " (Column1 Variant, Column2 Integer)"

    ' 执行SQL
    cmd.CommandText = strSQL
    cmd.Execute
    CreateTable = True ' 返回操作结果
End Function

5. **在其他部分调用**:
你可以在需要的地方调用`ConnectToDatabase()`和自定义的函数，比如在一个按钮的Click事件处理程序中。