有关VB做的数据库连接的程序

我给你写出个例子：
首先在工程->引用 Microsoft ActiveX Data Objects 2.0 Library
Dim Cn As New ADODB.Connection
Dim Re As New ADODB.Recordset
Dim SqlStr As String
Private Sub Form_Load()
'以文件打开,也可以指定ODBC数据源（DNS）
Private Sub OpenDiskMdb()
Dim Cn As New ADODB.Connection
Dim Re As New ADODB.Recordset
Dim SqlStr As String
Dim ConnStr As String
Set Cn = New ADODB.Connection
Set Re = New ADODB.Recordset
Cn.Open "Provider=Microsoft.jet.OLEDb.3.51;Data Source=e:\db\01.mdb" '打开磁盘上的数据库
Re.CursorLocation=adUseClient
SqlStr = "select * from titles " ‘SQL语句
Re.Open SqlStr, Cn, adOpenStatic, adLockReadOnly
End Sub
'这样所查询的内容在Re内可以用网格控件来显示。

数据库的程序那么多，不知道你想知道哪种？至少说一下