???我的一段访问MDB的代码,如何改变能访问DBF数据库????
table_name = ListBox1.List(ListBox1.ListIndex)
DataGird1.Caption = table_name
provider = "provider = microsoft.jet.oledb.4.0"
datasource = "data source= " & App.Path + "\a.mdb"
Adodc1.ConnectionString = provider & ";" & datasource
Adodc1.CommandType = adCmdTable
Adodc1.RecordSource = table_name
Set DataGrid1.datasource = Adodc1
Adodc1.Refresh