datagrid , adodb

[تبار]

من این کدها را وارد کرده‌ام و نتوانستم در datagrid اطلاعات را مشاهده کنم . لطفا مرا راهنمایی کنید:

Dim str As New ADODB.Connection
Dim rs As New ADODB.Recordset
str.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Program Files\Microsoft Visual Studio\VB98\NWIND.MDB;Persist Security Info=False"
rs.Open "Orders", str, adOpenKeyset, adLockOptimistic, adCmdTable
Set DataGrid1.DataSource = rs
DataGrid1.Refresh

[shabani]

من این کدها را وارد کرده‌ام و نتوانستم در datagrid اطلاعات را مشاهده کنم . لطفا مرا راهنمایی کنید:

Dim str As New ADODB.Connection
Dim rs As New ADODB.Recordset
str.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Program Files\Microsoft Visual Studio\VB98\NWIND.MDB;Persist Security Info=False"
rs.Open "Orders", str, adOpenKeyset, adLockOptimistic, adCmdTable
Set DataGrid1.DataSource = rs
DataGrid1.Refresh

علت آن این است که nwind با JET 3.51 کار می کند ولی شما از JET 4 استفاده کرده ای پس بنویس
str.Open "Provider=Microsoft.Jet.OLEDB.3.51.0;Data Source=D:\Program Files\Microsoft
برای ورژن های جدید OFFICE از 4 استفاده می شود