.NET (Core and Framework)

imports system.data.sqlClient
Public Sub Form1
    Dim _DataAdapter As New SqlDataAdapter
    Dim _CommandBuilder As SqlCommandBuilder
    Dim _DataSet As New DataSet

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim _cnstring As String = "Data Source=Eliane-VAIO\SQLEXPRESS;Initial catalog=ADOnet;Integrated Security=True;"
        Dim _cn As New SqlConnection(_cnstring)
        Dim _cmd As New SqlCommand("select * from tblCutomer", _cn)
        _cn.Open()
        Dim reader As SqlDataReader = _cmd.ExecuteReader()
        Try
            _DataAdapter.Fill(_DataSet)
        Catch eror As Exception
            MsgBox(eror.Message)
        End Try
    End Sub

string Query = "select * from someTable where id = @id";

//Replace the "ConnectionString" with your actual connection string
using(SqlConnection dbase = new SqlConnection("ConnectionString"))
{
  dbase.Open();
  
  SqlCommand cmd = new SqlCommand(Query, dbase);
  cmd.Parameters.AddWithValue(@id, 10);  //should really replace the number 10 with a variable
  SqlDataReader rdr = cmd.ExecuteReader();

  if(rdr.HasRows)
  {
    while(rdr.Read())
    {
      //output my data here
    }
  }
}

string Query = "select * from someTable where id = @id";
DataTable dt = new DataTable();

//Replace the "ConnectionString" with your actual connection string
using(SqlConnection dbase = new SqlConnection("ConnectionString"))
{
  dbase.Open();
  
  SqlCommand cmd = new SqlCommand(Query, dbase);
  cmd.Parameters.AddWithValue(@id, 10);  //should really replace the number 10 with a variable
  dt.Load(cmd.ExecuteReader());
}