Dim connectionString As String = "Data Source=Machine_Name;Initial Catalog=DB_Name;User ID=;Password="
Private conn As SqlConnection = New SqlConnection(connectionString)
conn.Open()
Dim squery As String
squery = "select * from tblName where Id=' " & Id & "' ";
Dim command As New SqlCommand(squery, conn)
command.CommandType = CommandType.Text
Dim data As New SqlDataAdapter(command)
Dim dsData As New DataSet()
data.Fill(dsData)
conn.Close()