访问DBF数据库的问题
想把一个DBF文件数据库里的数据查询出来，放到DataGrid1上面去，但是到红字那部分就报错，请问是哪里的问题啊？
connectstr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=D:\xqw\xqwdbf; Extended Properties=dBASE 5.0;User ID=;Password=;"
Try
Dim objconnection1 As OleDbConnection = New OleDbConnection(connectstr)
objconnection1.Open()
MsgBox("连接数据库！")
Dim dataDA As OleDbDataAdapter = New OleDbDataAdapter
dataDA.SelectCommand = New OleDbCommand
Dim dataDS As DataSet = New DataSet
dataDA.SelectCommand.Connection = objconnection1
dataDA.SelectCommand.CommandText = "select * from xqwyh.dbf"
dataDA.Fill(dataDS, "xqwyh.dbf")
If dataDA Is Nothing Then
MsgBox("找不到指定条件的数据！")
End If
Dim datarow1 As Integer
datarow1 = dataDS.Tables("xqwyh.dbf").Rows.Count
DataGrid1.DataSource = dataDS
DataGrid1.DataMember = "xqwyh.dbf"
objconnection1.Close()
dataDA = Nothing
objconnection1 = Nothing
Catch ex As Exception
MsgBox("连接数据库失败，请检查网络连接是否正确，或者服务器是否启动。", MsgBoxStyle.Information, "网络连接错误！")
End Try
[解决办法]
"select * from xqwyh.dbf"
这句话能被该数据库支持吗
[解决办法]
改成以下试试：
connectstr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=D:\xqw\xqwdbf.dbf; Extended Properties=dBASE 5.0;User ID=;Password=;"
Try
Dim objconnection1 As OleDbConnection = New OleDbConnection(connectstr)
objconnection1.Open()
MsgBox("连接数据库！")
Dim dataDA As OleDbDataAdapter = New OleDbDataAdapter
dataDA.SelectCommand = New OleDbCommand
Dim dataDS As DataSet = New DataSet
dataDA.SelectCommand.Connection = objconnection1
dataDA.SelectCommand.CommandText = "select * from xqwyh"
dataDA.Fill(dataDS, "xqwyh")
If dataDA Is Nothing Then
MsgBox("找不到指定条件的数据！")
End If
Dim datarow1 As Integer
datarow1 = dataDS.Tables("xqwyh").Rows.Count
DataGrid1.DataSource = dataDS
DataGrid1.DataMember = "xqwyh"
objconnection1.Close()
dataDA = Nothing
objconnection1 = Nothing
Catch ex As Exception
MsgBox("连接数据库失败，请检查网络连接是否正确，或者服务器是否启动。", MsgBoxStyle.Information, "网络连接错误！")
End Try
[解决办法]
连接字符串你可以用数据源配置向导生成，和你写的比较一下。这个数据库没用过，应该和ACCESS差不多……
