ник: Мюллер
Dim conn1 As New SqlConnectionStringBuilder()
conn1.DataSource = serv ' имя сервера
conn1.InitialCatalog = bas 'имя базы
conn1.IntegratedSecurity = True
Dim cn1 As New SqlConnection(conn1.ConnectionString)
'Using cn1 As New SqlConnection(conn1.ConnectionString)
cn1.Open()
strSQL1 = " текст запроса"
Dim cmd1 As New SqlCommand(strSQL1, cn1)
Dim rdr1 As SqlDataReader = cmd1.ExecuteReader()
Do While rdr1.Read
Me.ИмяПоля.Text = (rdr1("AutoNumder"))
Loop
rdr1.Close()
cn1.Close()
Тут пример как подсоединиться к SQL-SERVER - у. Для соединения с аксесом нужно использовать ОЛЕДБ конекшин.
А так принцип тот же - данные загоняются в датаридер, и потом из него считываются. В данном случае в поле будет переданы по очереди все записи из датаридера, но останется последняя запись датаридера.
Если вопрос о том какой синтаксис у ОЛЕДБ - могу поискать. Где-то я его использовал, правда не помню где.