Надо фильтровать данные в одной таблице по всем 6 полям, сделал фильтр по одному полю , а по второму идет ругань на DataSet

Вот код

Соединение с базой (проходит нормально)

Imports System.Data.OleDb


Dim conn As OleDbConnection
Dim ds As DataSet
Dim cmd As OleDbCommand
Dim ad As OleDbDataAdapter


conn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\data.mdb")

conn.Open()

cmd = New OleDbCommand()

cmd.Connection = conn
cmd.CommandType = CommandType.Text
cmd.CommandText = "select * from rt"


ad = New OleDbDataAdapter()
ad.SelectCommand = cmd

ds = New DataSet()
ad.Fill(ds)

MsgBox("Данные загружены!")

Вот процедура фильтрации по полю fio

DataGrid1.DataMember = ""
DataGrid1.DataSource = Nothing

With ds.Tables(0)

.DefaultView.RowFilter = "fio like '" & TextBox1.Text & "%'"
.DefaultView.AllowDelete = False
.DefaultView.AllowEdit = False
.DefaultView.AllowNew = False
DataGrid1.DataSource = .DefaultView

Фильтрует нормально.

Сделал другое текстовое поле и в нем пишу тоже самое, только в выражении отбора ставлю соответственно

.DefaultView.RowFilter = "nomer like '" & TextBox2.Text & "%'"

И ругается на строку : With ds.Tables(0)

Что не так я делаю?

Тьфу ты ,забыл End with поставить!

Заработало.

Тогда задам другой вопрос.

Почему не могу обратиться к таблице в DataSet по имени.

ds.Tables("Rt")

Ошибку дает. Как обратиться по имени к таблице.

И еще , может достаточно использовать только OleDbConnection и DataSet чтобы добраться до данных в таблице? Только вот как?

Большое спасибо. Заработало.

Вот только я получил данные из таблицы. Мне надо заполнить комбобокс данными. Как это сделать?
В смысле как пройтись по каждой записи в таблице получив значение из поля?

Спасибо, работает.