VB 如何装载数据库

VB 怎么装载数据库啊
就是我在安装的时候,怎么用命令连接把数据库添加到SQL.

[解决办法]
Dim cn As New ADODB.Connection, rs As New ADODB.Recordset
If cn.State = adStateOpen Then cn.Close
cn.Provider = "Microsoft.Jet.OLEDB.4.0 "
cn.ConnectionString = App.Path & "\data\DB.mdb "
cn.CursorLocation = adUseClient
cn.Open
Set rs.ActiveConnection = cn
rs.Open "select * from A ", cn, adOpenStaticm, adLockOptimistic
Set DG.DataSource = rs
DG.Refresh

给个参考吧

我也是个新手，连SQL SERVER一般用ADO和DATAGRID手动设置，不用代码。