datagrid控件显示问题

Private Sub Form_Load()
Me.Left = (Screen.Width - Me.Width) / 2
Me.Top = (Screen.Height - Me.Height) / 2
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\database\db_htgl.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select * from Table_htxxb"
Adodc1.Refresh
DT1.Value = Date
DT2.Value = Date
End Sub

我用显示MSF录入的信息,为什么查询无法正常显示? --------------------编程问答--------------------     '连接字符串
    Adodc1.ConnectionString = "driver={sql server};server=" + Trim(server) + ";uid=" + Trim(user) + ";pwd=" + Trim(password) + ";database=erp1"
    '查询users表中全部信息
    Adodc1.RecordSource = "select * from businessman"
    '用datagrid显示查询信息
    Set DataGrid1.DataSource = Adodc1
--------------------编程问答--------------------

引用 1 楼 lcsfxs 的回复:

    '连接字符串
    Adodc1.ConnectionString = "driver={sql server};server=" + Trim(server) + ";uid=" + Trim(user) + ";pwd=" + Trim(password) + ";database=erp1"
    '查询users表中全部信息
    Adodc1.RecordSource = "select * from businessman"
    '用datagrid显示查询信息
    Set DataGrid1.DataSource = Adodc1

我用的是ACCESS数据库啊,晕 --------------------编程问答-------------------- 是什么都不显示还是提示错误? --------------------编程问答-------------------- '你的 app.path是在 c:\ 或d:\ 主目录下吗?

Dim appdisk$
Private Sub Form_Load()
  Appdisk = IIf(Right(App.Path, 1) = "\", App.Path, App.Path & "\")
  Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & appdisk & "database\db_htgl.mdb;Persist Security Info=False"
   Adodc1.RecordSource = "select * from Table_htxxb"
   Set DataGrid1.DataSource = Adodc1
End Sub

--------------------编程问答-------------------- 留个邮箱我把代码发给你吧 --------------------编程问答-------------------- 你的方法我试了啊,还是不行,我用同样的方法在其他窗体里运行是没有问题的,但是隐藏了删除按钮,我QQ是303847732,加了! --------------------编程问答-------------------- 连接ACCESS数据库,最好给VB打上补丁六,
Public   gsOdbcName   As   String
Public   ADOsdb   As   new   ADODB.Connection

        gsOdbcName   =   "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data   Source= "   _
                &   app.path   &   "db_htgl.mdb"   &   "; "

With   ADOsdb
                If   .State   <>   adStateOpen   Then
                        .CursorLocation   =   adUseClient
                        .ConnectionString   =   gsOdbcName
                        .Open
                End   If
End   With

'打开表
With ADOjna
        If .State = adStateOpen Then
             Set .ActiveConnection = Nothing
            .Close
        End If

      .ActiveConnection = ADOsdb
      .CursorLocation = adUseClient        '这里一定要写aduseclient，我试了另外几种都不行
      .CursorType = adOpenStatic
      .LockType = adLockOptimistic
      .Open "SELECT id,rq,gh,kd,dhhm,khmc,lxwy,smfw,ghpgzf,lbyt,qlxc,ywtz,xjsx,rhryfw,wxy From hfjlb order by id", Options:=adCmdText
End With
--------------------编程问答-------------------- Set DataGrid1.DataSource = adojna --------------------编程问答-------------------- 好像没那么简单,呵呵.

补充：VB ,  数据库(包含打印，安装，报表)