[Resolvido] RowFilter

Pessoal tenho uma pagina com com dropdownlist para filtrar um datragid mas não estou conseguindo executar um rowfilter aparece a mensagem abaixo:

Referência de objeto não definida para uma instância de um objeto

linha do erro

Linha 119: ds1.Tables("qryemail").DefaultView.RowFilter = "Unidade like '%" & cbo.SelectedValue & "%'"

Segue o código da combo

If cbopesquisa.SelectedIndex = 0 Then
Dim dv As New DataView(ds1.Tables("qryemail"))
dv.RowFilter = "Nome like '%" & TextBox1.Text & "%'"
ElseIf cbopesquisa.SelectedIndex = 1 Then
ds1.Tables("qryemail").DefaultView.RowFilter = "Unidade like '%" & cbo.SelectedValue & "%'"
ElseIf cbopesquisa.SelectedIndex = 2 Then
ds1.Tables("qryemail").DefaultView.RowFilter = "Funcao like '%" & cbo.SelectedValue & "%'"
ElseIf cbopesquisa.SelectedIndex = 3 Then
TextBox1.Enabled = False
carregardados()
'ds1.Tables("qryfunc").DefaultView.RowFilter = "departamento like '%" & TextBox1.Text & "%'"
End If

Quando a pagina é iniciada o datagrid é mostrado com todos os dados uso o dropdownlist para filtrar os dados.

Obs.: Estou usando VS2300 com banco em access