Dim connectionString As String
 Dim sqlString As String
 Dim dataAdapter As System.Data.SqlClient.SqlDataAdapter;
 connectionString = "server= test;uid=test;pwd=test;database=.test.dbo"
 sqlString = “sp_persons”
 dataAdapter = New System.Data.SqlClient.SqlDataAdapter(sql,connectionString)
 Dim ds As New DataSet()
 dataAdapter.Fill(ds, “Persons”)