код модуля
'Подключаем классы System,OLEDB
Imports System
Imports System.Data.OleDb
'Imports ADOX


Module AConnectionsModule

'Dim cat As New Catalog 'Imports ADOX
'Dim tbl As New Table 'Imports ADOX
Public AccessConnection As OleDbConnection 'Imports System.Data.OleDb


Public Function StringConnectToBDAccess(ByVal tProvider As String, ByVal tUserID As String, ByVal tPassword As String, ByVal tDataSource As String, ByVal tMode As String) As String
'Формируем строку соединения с Access
StringConnectToBDAccess = "Provider=" & tProvider & ";" & _
"User ID=" & tUserID & ";" & _
"Password=" & tPassword & ";" & _
"Data Source=" & tDataSource & ";" & _
"Mode=" & tMode & ";"
End Function
Public Function ConnectToBDAccess(ByVal MyConnectionString As String, ByRef StatusConnection As String) As Boolean
'Обработка исключения
Try
'Создадим
AccessConnection = New OleDbConnection(MyConnectionString)
'Открываем БД
AccessConnection.Open()
'Статус соединения
StatusConnection = "Connection State::" & AccessConnection.State.ToString
'Возврат положительного результата
ConnectToBDAccess = True

'Исключение OLEDB
Catch MyOdbcException As OleDbException
'Статус соединения (сообщение об ошибке)
StatusConnection = MyOdbcException.ToString
'Возврат отрицательного результата
ConnectToBDAccess = False

'Исключение по ошибок программы
Catch MyException As Exception
'Статус соединения (сообщение об ошибке)
StatusConnection = MyException.ToString
'Возврат отрицательного результата
ConnectToBDAccess = False

End Try
End Function

кнопка на форме - создать строку соединения и передать её
Private Sub btnConnectionSTRingToAccess_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConnectionSTRingToAccess.Click

'Формируем строку соединения и записывем её в txtboxConnectionString на форме
txtboxConnectionSTRing.Text = StringConnectToBDAccess(txtboxProviderToAccess.Text, txtboxUserToAccess.Text, txtboxPassToAccess.Text, txtboxPathToAccess.Text, txtboxAccessToAccess.Text)
End Sub

кнопка на форме - проверить соединение

Private Sub btnTestToAccess_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTestToAccess.Click

'Эта строка - статус подключения
Dim StatusConnection As String
'Соединимся и получим результат
If ConnectToBDAccess(txtboxConnectionSTRing.Text, StatusConnection) = True Then
'Соединение прошло удачно
MsgBox("Соединение прошло удачно. Тест выполнен. Строка состояния: " & StatusConnection)

Else
'Соединение не осущесвилось
MsgBox("Соединение не осущесвилось! Строка состояния: " & StatusConnection)
End If
Me.состояние.Text = StatusConnection
End Sub

всегда выдаёт 'Соединение прошло удачно'

теперь я пытаюсь как-то считать данные из таблицы базы - "dog2007"
Public Sub iz_ltablici()
Dim FRM As Form1
Dim dbreader As OleDbDataReader
Dim dbCmd As OleDbCommand ' = New OleDbCommand("SELECT NOMER FORM dog2007")
dbCmd.Connection = AccessConnection
' и вот тут у меня ошибка vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv
dbreader = dbCmd.ExecuteNonQuery("SELECT NOMER FORM dog2007")
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
dbreader.Read()
FRM.TextBox1.Text = dbreader.GetString(0)
End Sub

все примеры в книжке приведены для работы в консольном режиме.
А мне это трудно переложить на WINприложение...

Да? ....!

я извиняюсь, видимо я не правильно выразился...
хотел сказать- вот ведь как, а я и не заметил ошибку - то..., но написал сокращённо...Дааа?

Выписал ещё книжку и снова незадача...
все примеры на языке C#, а я его в глаза не видел...
я всегда на vb да vba писал...
пока в конструкторе всё понятно , а как тока код, то не всегда бесик понимает меня...
вот к примеру проверяем вносились ли изменения в набор данных ds1
в учебнике написано на C#
If (Ds1.HasChanges())
DataTable dtDelChild = Ds1.Prep.GetChanges(DataRowState.Deleted)
dtDelChild- что это? Спрашивает бесик... , а я и сам не знаю что это.
DataTable - и это что это? Данные таблицы...

попробовал так
If Ds1.HasChanges() Then DataTable(dtDelChild = Ds1.Prep.GetChanges(DataRowState.Deleted))
DataTable(dtDelChild - не поняли друг друга...

<<Для профессионалов>>???
Я читаю сейчас книгу для чайников...:-)

А что-же в C# переменные и объекты объявляются по ходу...
без ключевого слова (dim, let, set)???

hDrummerМодератор: Топик пока не закрываю, но он уже на грани.
Хорошо...
Тема пррикрыта... ' Книгу С. Малик скачал ( PDF ).Спасибо за совет.

Извините, не удержался...
Вот что у меня вышло в финале...
в форме_№2


Private Sub dog_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim ds As DataSet
Dim Ad As OleDb.OleDbDataAdapter
ds = New DataSet
Me.DG_dog.DataSource = ds
Try
Comm = New OleDb.OleDbCommand("SELECT * FROM DOG2007", AccessConnection)
Comm.Connection = AccessConnection
Ad = New OleDb.OleDbDataAdapter
Ad.SelectCommand = Comm
Ad.Fill(ds, "DOG2007")
Me.DG_dog.DataMember = ds.Tables("DOG2007").TableName
AccessConnection.Close()
AccessConnection.Dispose()
Comm.Dispose()
ds.Dispose()
Catch ex As Exception
MsgBox("ошибочка - >" & ex.Message)

End Try
End Sub