Imports System.Data.SqlClient
Public Class Form1
Private mydata As DataSet

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
DataGridView1.DataSource = Nothing
Dim connstring As String = _
"data source=172.16.1.1;initial catalog=bvista;user id =sa;"
Using testconnection As SqlConnection = New SqlConnection(connstring)

Dim testcommand As SqlCommand = testconnection.CreateCommand()
testcommand.CommandText = "select * from address"
Dim dataadapter As New SqlDataAdapter(testcommand)
dataadapter.Fill(mydata, "address")

End Using
updatecombobox()





End Sub



Private Sub updatecombobox()
combotables.items.clear()
For Each tbl As DataTable In mydata.Tables
combotables.items.add(tbl.TableName)


Next
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
DataGridView1.DataSource = Nothing
Dim connstring As String = _
"data source=172.16.1.1;initial catalog=bvista;user id =sa;"
Using testconnection As SqlConnection = New SqlConnection(connstring)

Dim testcommand As SqlCommand = testconnection.CreateCommand()
testcommand.CommandText = "select posc,inn from address"
Dim dataadapter As New SqlDataAdapter(testcommand)
dataadapter.Fill(mydata, "address")

End Using
updatecombobox()
End Sub

Private Sub combotables_selectedindexchanged( _
ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles Combotables.SelectedIndexChanged
DataGridView1.DataSource = mydata.Tables(Combotables.SelectedIndex)

End Sub
End Class



пишет ошибку

Value cannot be null.
Parameter name: dataSet


в чем может быть проблема?

BigheadmanОформите код с форматированием. Читать и разбираться в этом совершенно невозможно.
Ошибка скорее всего в том, что датасет mydata нужно где-то проинициализировать. ХОтя бы так mydata = new DataSet()

уже проинициализирован в самом верху

пишет ошибку

Value cannot be null.
Parameter name: dataSet


в чем может быть проблема?

Bigheadman авторуже проинициализирован в самом верхуИ где у вас строка Set mydata = new DataSet() (или какой там синтаксис в VB.NET)??? Номер строки, пожалуйста.

gulyaev.s Bigheadman авторуже проинициализирован в самом верхуИ где у вас строка Set mydata = new DataSet() (или какой там синтаксис в VB.NET)??? Номер строки, пожалуйста.

Private mydata As DataSet

Bigheadman авторуже проинициализирован в самом верхуИ где у вас строка Set mydata = new DataSet() (или какой там синтаксис в VB.NET)??? Номер строки, пожалуйста.


или надо написать

Private mydata As new DataSet ?

gulyaev.s Bigheadman авторуже проинициализирован в самом верхуИ где у вас строка Set mydata = new DataSet() (или какой там синтаксис в VB.NET)??? Номер строки, пожалуйста.


или надо написать

Private mydata As new DataSet ?


все заработало спасиба