Try
Dim conexio As New SqlClient.SqlConnection("workstation id=SENZAO;packet" & _
"size=4096;user id=" & Me.TextBox1.Text & _
"; password=" & Me.TextBox2.Text & _
"; data source=LOCALHOST;persist security" & _
"info=False;initial catalog=" & TextBox3.Text)
Dim comand As New SqlClient.SqlCommand("select * from " & TextBox4.Text, conexio)
Dim adapter As New SqlClient.SqlDataAdapter(comand)
Dim DS1 As New DataSet
adapter.Fill(DS1, "Reporte")
Me.DataGrid1.DataSource = DS1
Me.DataGrid1.DataMember = DS1.Tables("Reporte").TableName
Catch ex As System.Data.SqlClient.SqlException
MsgBox(ex.ToString)
End Try