1. 打开Visual Basic，创建一个新项目，选择标准EXE。2. 在工具箱中添加ADO控件或Data控件。3. 设置数据库连接字符串，比如Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\数据库.mdb。4. 使用Open命令打开数据库，CreateDatabase创建新库。5. 添加Recordset对象，执行SQL语句如CREATE TABLE users (id INTEGER, name TEXT)。6. 绑定控件到数据源，运行测试。

步骤详解

首先，新建一个VB项目。在窗体上放置一个Data控件，属性中设置DatabaseName为你的Access数据库路径。如果没有数据库，用Access先建好.mdb文件。然后Caption设置为连接名。接着添加一个DBGrid控件，DataSource指向Data控件。运行程序就能看到数据了。要创建表，直接在代码中写：Dim cn As New ADODB.Connection cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=数据库.mdb" cn.Execute "CREATE TABLE 表名(字段1 类型,字段2 类型)"

连接Access数据库技巧

在VB6中创建数据库超级简单！1.项目-引用-选中Microsoft ActiveX Data Objects 2.8 Library。2.代码中：Dim cn As New ADODB.Connection cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data.mdb;Persist Security Info=False" 如果数据库不存在，用：cn.Execute "CREATE DATABASE " & App.Path & "\data.mdb" 但通常先用Access创建空库再连。

快速上手创建表

用VB建立Access数据库步骤：Private Sub Command1_Click() Dim cat As New ADOX.Catalog cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb" MsgBox "数据库创建成功！" End Sub 记得项目引用Microsoft ADO Ext. 2.8 for DDL and Security。

插入数据技巧

数据库连好后，创建表：cn.Execute "CREATE TABLE students (学号 TEXT(10),姓名 TEXT(20),成绩 INTEGER)" 插入数据：Dim rs As New ADODB.Recordset rs.Open "students", cn, 1, 3 rs.AddNew rs("学号")="001" rs("姓名")="张三" rs("成绩")=90 rs.Update

常见错误避免

路径用双反斜杠，如"C:\\db.mdb"。如果提示库已存在，先删除或改名。VB运行时需安装MDAC。测试时用MsgBox显示错误：On Error GoTo errh cn.Open strConn Exit Sub errh: MsgBox Err.Description

绑定控件

用Data控件最简单，DatabaseName=数据库路径，RecordSource=表名。Text控件DataField=字段名，DataSource=Data1。Command按钮刷新：Data1.Refresh

FAQ
Q: VB怎么创建新数据库文件？
A: 用ADOX.Catalog cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=路径.mdb"
Q: 连接失败怎么办？
A: 检查路径、Provider是否正确，确认.mdb文件存在。
Q: 如何添加数据到表？
A: 用Recordset.Open表名，然后AddNew设置字段值，Update保存。
Q: 支持SQL Server吗？
A: 是，用Provider=SQLOLEDB.1;Data Source=服务器名;等参数。