Может кто нибудь может объяснить почему в DataGride при использование recordset.open
не оттображается ничего, кроме названий полей???

Имеется Access база, две таблицы tabel1 и table2, даю код


Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim ssql As String
Set cnn = New ADODB.Connection
cnn.CursorLocation = adUseClient
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False; Data Source=C:\table1.mdb; Jet OLEDB:Database Password="
cnn.Open
Set rs = New ADODB.Recordset
rs.ActiveConnection = cnn
rs.Source = "select * From tName"
rs.Open
Set Me.DataGrid1.DataSource = rs


В датагриде ничего кроме названия полей, и еще если дать

Private Sub Form_Activate()
Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim ssql As String
Set cnn = New ADODB.Connection
cnn.CursorLocation = adUseClient
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False; Data Source=C:\table2.mdb; Jet OLEDB:Database Password="
cnn.Open
Set rs = New ADODB.Recordset
rs.ActiveConnection = cnn
rs.Source = "select * From tPrice"
rs.Open
Set Me.DataGrid1.DataSource = rs
End Sub

ругается, говорит
The Microsoft Jet database engine cannot find the input tabel or query 'table2. Make sure it exists and that its name is spelle correctly.
Как я понимаю ругается мол, таблицы такой нема (дык есть она, а он не видит) , а почему :-(( ???

Прошу прощения, вношу поправку

Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim ssql As String
Set cnn = New ADODB.Connection
cnn.CursorLocation = adUseClient
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False; Data Source=C:\base.mdb; Jet OLEDB:Database Password="
cnn.Open
Set rs = New ADODB.Recordset
rs.ActiveConnection = cnn
rs.Source = "select * From tName"
rs.Open
Set Me.DataGrid1.DataSource = rs

и

Private Sub Form_Activate()
Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim ssql As String
Set cnn = New ADODB.Connection
cnn.CursorLocation = adUseClient
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False; Data Source=C:\base.mdb; Jet OLEDB:Database Password="
cnn.Open
Set rs = New ADODB.Recordset
rs.ActiveConnection = cnn
rs.Source = "select * From tPrice"
rs.Open
Set Me.DataGrid1.DataSource = rs
End Sub

Прошу прощения, вношу поправку

Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim ssql As String
Set cnn = New ADODB.Connection
cnn.CursorLocation = adUseClient
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False; Data Source=C:\base.mdb; Jet OLEDB:Database Password="
cnn.Open
Set rs = New ADODB.Recordset
rs.ActiveConnection = cnn
rs.Source = "select * From tName"
rs.Open
Set Me.DataGrid1.DataSource = rs

В датагриде, все равно ничего кроме названия полей, и еще если дать

Private Sub Form_Activate()
Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim ssql As String
Set cnn = New ADODB.Connection
cnn.CursorLocation = adUseClient
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False; Data Source=C:\base.mdb; Jet OLEDB:Database Password="
cnn.Open
Set rs = New ADODB.Recordset
rs.ActiveConnection = cnn
rs.Source = "select * From tPrice"
rs.Open
Set Me.DataGrid1.DataSource = rs
End Sub

всеравно ругается

В том то и дело что записей валом в обоих таблицах но когда обращаешся к одной все нормально за исключением отсутствия записей, а вот когда обращаешся к другой таблице выдает :
The Microsoft Jet database engine cannot find the input tabel or query 'table2. Make sure it exists and that its name is spelle correctly.

В первом случае уже незнаю что делать, а вот во втором , думал сначала что имя таблицы указал с ошибкой, раз двадцать проверял все правельно :-((

Помогите пожалуйста

кузя!!!
Спасибо за пристальное внимание, база действительно называется base, но с table1 и table2 ты правельно подметил, вобщем проблема такова в акцесовской базе base.mdb имеется две талицы tName и tPrice , с записями это точно, проблема в том что когда в rs.Source я задаю выборку из таблицы tName он выдает в дата грид только название полей и не одной записи, а вот ежели в том же месте , тот же rs.Source задать как выборку из таблици tPrice то он выдает ошибку : The Microsoft Jet database engine cannot find the input tabel or query tPrice. Make sure it exists and that its name is spelle correctly , выборку делаю самую простую (select * from <название таблицы>) ,безовсяких условий ,код пишу действительно такой

Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim ssql As String
Set cnn = New ADODB.Connection
cnn.CursorLocation = adUseClient
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False; Data Source=C:\base.mdb; Jet OLEDB:Database Password="
cnn.Open
Set rs = New ADODB.Recordset
rs.ActiveConnection = cnn
rs.Source = "select * From tPrice"
rs.Open
Set Me.DataGrid1.DataSource = rs

Все буквы совпадают точно, постольку поскольку пробовал даже не руками вбивать названия таблиц, а копировал из акцесса в проект через буфер обмена, да и refresh тоже пробовал не помогает. Люди добрые объясните что же это за чудо такое и как его обойти.