不好意思，这台电脑不是我的，打字实在不方便。。。

不过那个拼写有没有错误？？？

Option Explicit
Dim gconn As New ADODB.Connection
Dim rs As ADODB.Recordset
Dim rsfield As ADODB.Recordset
Dim matable As String
Dim num As Long
Dim BaseConn As String
Dim chaineconn As String
———————————————————————————————————————————————————
Private Sub Form_Load()
Me.Width = 9840
BaseConn = "Provider=Microsoft.Jet.OLE DB.3.51;Persist Security Info=False;Data Sourcr="
End Sub
————————————————————————————————————————————————
Private Sub Command1_Click()
Dim Node As Node
Dim etape1 As Node
Dim etape2 As Node
cd.Filter = "Base Access|*.mdb"
cd.ShowOpen
chaineconn = BaseConn & cd.FileName
If cd.FileName = "" Then Exit Sub
trv.Nodes.Clear
gconn.Open chaineconn
Set rs = gconn.OpenSchema(adSchemaTables)
Set Node = trv.Nodes.Add(, , , "<Base>", 1, 1)
Node.Expanded = True
Do While Not rs.EOF
Select Case LCase(rs.Fields(3))
Case "table"
num = 2
Case Is = "view"
num = 5
Case "system table"
num = 6
Case Else
num = 4
End Select
Set etape1 = trv.Nodes.Add(Node, tvwChild, , rs.Fields(2).Value, num, num)
Set rsfield = gconn.OpenSchema(adSchemaColumns)
Do While Not rsfield.EOF
If rsfield.Fields(2) = rs.Fields(2) Then
Set etape2 = trv.Nodes.Add(etape1, tvwChild, , rsfield.Fields(3), 3, 3)
End If
rsfield.MoveNext
Loop
rs.MoveNext
Loop
gconn.Close
End Sub

_____________________________________________________________-----________________________________

Private Sub trv_NodeClick(ByVal Node As MSComctlLib.Node)
Dim rep As Long
Dim rsprivate As ADODB.Recordset
Dim item As ListItem
Dim requete As String
Dim h, g As Integer
gconn.Open chaineconn
matable = Replace(Node.FullPath, "<base>\", "")
rep = InStr(matable, "\")
If rep > 0 Then
matable = Left$(matable, rep - 1)
End If
requete = "select *from" & matable
On Error GoTo hdl
Set rsprivate = gconn.Execute(requete)
lstv.ListItems.Clear
lstv.ColumnHeaders.Clear
For h = 0 To rsprivate.Fields.Count - 1
lstv.ColumnHeaders.Add , , rsprivate.Fields(h).Name
Next
lstv.View = lvwReport
Do While Not rsprivate.EOF
Set item = lstv.ListItems.Add(, , rsprivate.Fields(0))
For g = 1 To rsprivate.Fields.Count - 1
item.SubItems(g) = rsprivate.Fields(g)
Next
rsprivate.MoveNext
Loop
'sb.panels(1).text="ok"
gconn.Close
Exit Sub
hdl:
On Error Resume Next
gconn.Close
End Sub

拼写应该没错误吧

第一眼..
OleDb是连着的.
不是分开的.

我记得好像是data source，不是你的sourcr。。。

不过，你怎么不用ADO4.0呢？？？

哦    这样运行后的错误提示是：找不到可插入的  ISAM

改为
Provider=Microsoft.Jet.OleDb.4.0看看.

哦 行 知道了 谢谢拉
原来在这里啊

行了 谢谢你们的关心啊
谢谢
你们真厉害

还是MM比较强。。。