Уважаемые господа, как Вы думает почему может происходить следующее:
предварительно описанные объекты

cnObnov.Open()
Dim dsObnov As New data.DataSet
daObnov.Fill(dsObnov, "tovar")

все замечательно отрабатывает...

а вот так :
OpenDlg.Filter = "Обновление (*.xml)|*.xml"
OpenDlg.ShowDialog()

cnObnov.Open()
Dim dsObnov As New data.DataSet
daObnov.Fill(dsObnov, "tovar")


не срабатывает и соединение не открывает а выбивает ошибку

подключаюсь к аксесосвкой базе и опендиалог к ней не имеет никакого отношения