Dim conn As SqlConnection
Dim cmd As SqlCommand
Dim strconnection, strsqlinsert As String
Dim Employeeid As String
Private Sub btnAddRecord_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles btnAddRecord.Click
  strconnection = "server=localhost;uid=sa;password=;database=DummyDB"
  strsqlinsert = "Insert into Employees ( "
  strsqlinsert + = "FirstName ,LastName"
  strsqlinsert + = ")"
  strsqlinsert + = " values ("
  strsqlinsert + = "@FirstName,@LastName"
  strsqlinsert + = ")"
  strsqlinsert + = "; SELECT SCOPE_IDENTITY() ; "
  conn = New SqlConnection(strconnection)
  cmd = New SqlCommand(strsqlinsert, conn)
  cmd.Parameters.Add("@FirstName", SqlDbType.NVarChar).Value = FirstName.Text
  cmd.Parameters.Add("@LastName", SqlDbType.NVarChar).Value = LastName.Text
  cmd.Connection.Open()
  Employeeid = cmd.ExecuteScalar
  cmd.Connection.Close()
  lblLastRecordAdded.Text = Employeeid
End Sub

string strconnection, strsqlinsert;
SqlConnection conn;
SqlCommand cmd;
string Employeeid;
private void btnAddRecord_Click(object sender, System.EventArgs e)
{
  strconnection = "server=localhost;uid=sa;password=;database=DummyDB";
  strsqlinsert = "Insert into Employees ( ";
  strsqlinsert += "FirstName ,LastName";
  strsqlinsert += ")";
  strsqlinsert += " values (";
  strsqlinsert += "@FirstName,@LastName";
  strsqlinsert += ")";
  strsqlinsert += "; SELECT SCOPE_IDENTITY() ; ";
  conn = new SqlConnection(strconnection);
  cmd = new SqlCommand(strsqlinsert, conn);
  cmd.Parameters.Add("@FirstName", SqlDbType.NVarChar).Value = FirstName.Text;
  cmd.Parameters.Add("@LastName", SqlDbType.NVarChar).Value = LastName.Text;
  cmd.Connection.Open();
  Employeeid = cmd.ExecuteScalar().ToString();
  cmd.Connection.Close();
  lblLastRecordAdded.Text = Employeeid;
}