vb与access数据库连接

不用对方安装的,但在那文件你应该事先生成好，将数据库Copy过去就可以

给你举个例子吧：
'准备工作: 数据库 D:\Mydb.mdb 数据库中,建数据表:UserInfo,数据表中,建字段:User,Password,并添加一条记录
'点工程->引用 选中 Microsoft Activex Data Objects 2.1 Library
'控件:添加一个文本框,一个命令按钮

Private Sub Command1_Click()
Dim s As String
Dim Conn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\mydb.mdb"
'请将数据库名及路径换成你的实际数据库名及路径
Dim UserName As String
Dim Password As String

s = Text1.Text
If s = "1" Or s = "2" Then
UserName = InputBox("请输入用户名")
Password = InputBox("请输入用户密码")
sql = "Select * From [UserInfo] where User='" & UserName & "'"
'UserInfo请换成你的实际数据表名

Rs.Open sql, Conn, 1, 3
If Rs.EOF Then
MsgBox "没有找到此用户"
Else
If Rs("Password") = Password Then
If s = "1" Then
MsgBox "123"
ElseIf s = "2" Then
MsgBox "456"
End If
Else
MsgBox "密码错误"
End If
End If
End If

End Sub

一：用代码实现连接
dim
conn
As
New
ADODB.Connection
If
conn.State
=
adStateOpen
Then
conn.Close
conn.ConnectionString
=
"Provider=Microsoft.Jet.OLEDB.4.0;Data
Source="
&
VB.App.Path
&
"\database\database.mdb;"
&
"Persist
Security
Info=False"
“
VB.App.Path”是主程序所在的地址
conn.Open
Dim
rs
As
New
ADODB.Recordset
rs.Open
"insert
into
表名
values('"
& 值1的变量名
&
"','"
& 值2的变量名
&
"',……)",
conn,
1,
3

//这条是向数据库里插入数据，可以改为查询、删除、更新，这就是SQL语句的内容了
rs.Fields.Refresh
rs.Close
二：用控件

可以用ADO控件，ADO控件要手动添加在工具箱中，添加好并且添加到窗体中以后，在上面点右键——ADO属性，选“使用连接字符串”，然后点“生成”，然后选有JET4.0那一项，再后就是选择ACCESS数据库，最后“测试连接”，测试连接成功以后“应用”就好了

当然还可以用其它的控件

如果该机器没有装access2007需要下载安装“AccessDatabaseEngine.exe”，
下载地址（中文版）：“http://www.microsoft.com/downloads/details.aspx?FamilyID=7554F536-8C28-4598-9B72-EF94E038C891&displaylang=zh-cn”

----上面说的是access2007的情况，不是access2007的话估计也类似。

使用ADO进行连接,随便对方装不装都能用.
参考 回答者： yngsxx - 经理 四级 2-26 09:41 的答案重写代码吧.

这也太简单了