VB-VB 怎么装载数据库啊

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

Dim cn As New ADODB.Connection, rs As New ADODB.RecordsetIf cn.State = adStateOpen Then cn.Closecn.Provider = "Microsoft.Jet.OLEDB.4.0"cn.ConnectionString = App.Path & "\data\DB.mdb"cn.CursorLocation = adUseClientcn.OpenSet rs.ActiveConnection = cnrs.Open "select * from A", cn, adOpenStaticm, adLockOptimisticSet DG.DataSource = rsDG.Refresh给个参考吧我也是个新手，连SQL SERVER一般用ADO和DATAGRID手动设置，不用代码。

字串4

我想要的是用代码把数据库装到SQL 字串9

上面的代码已经把A表数据放进RS记录集了 字串5