Public Class Form1
Private userdata As New DataSet

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim connectionstring As String
connectionstring = _
"data source=172.16.1.5;initial catalog=bvista;user id=sa;"
Using testconnection As SqlConnection = New SqlConnection(connectionstring)
Dim testcommand As SqlCommand = testconnection.CreateCommand()
testcommand.CommandText = "select posc from address;" & "select posc, kod from users"
Dim dataadapter As New SqlDataAdapter(testcommand)
dataadapter.Fill(userdata)
End Using

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
DataGridView1.DataSource = userdata

End Sub
End Class