********  Command line, (commandline), Paramaters… ***************************************
        Dim separators As String = ","
        Dim commands As String = Microsoft.VisualBasic.Interaction.Command()
        Dim args() As String = commands.Split(separators.ToCharArray)
        MsgBox(args(0))
*******************************************************************************************        
        

'******************* OPEN A DATABASE ****************************************************
        Dim objConn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=xxx.mdb")
        Dim objCommand As New OleDbCommand()
        Dim objDa As New OleDbDataAdapter()
        Dim objDs As New DataSet()
        Dim objCommandBuilder As New OleDbCommandBuilder()

        objCommand.CommandText = "Select * From Table1"
        objCommand.Connection = objConn
        objDa.SelectCommand = objCommand
        objDa.Fill(objDs, "Table1")
        objDa.FillSchema(objDs, SchemaType.Source, "Table1")
        objCommandBuilder = New OleDbCommandBuilder(objDa)
'***********************************************************************************************        

'******************* SQLClient Open A DATABASE **********************************
        Dim objConn As New SqlConnection("user id=sa;password=daisy;data source=STEVESCHIMSKY;persist security info=False;initial catalog=SampleSQlSQL")
        dim objConn As New SqlConnection("data source=STEVESCHIMSKY;Integrated Security=SSPI;Database=SecureExam")
        Dim objCommand As New SqlCommand
        Dim objDa As New SqlDataAdapter
        Dim objDs As New DataSet
        Dim objCommandBuilder As New SqlCommandBuilder
        
        objCommand.CommandText = "Select * From People"
        objCommand.Connection = objConn
        objDa.SelectCommand = objCommand
        objDa.Fill(objDs, "Table1")
'***************************************************************************


'**************** C# Open A Databas *******************************************************
           //The solution is to Install and use the new System.Data.SqlClient package in NuGet to your project or solution.
            //From the context menu, select the Manage NuGet Packages for solutions...
            //In the NuGet Package Manager window, select the Browse Tab.
            // In the search box type in System.Data.SqlClient and press enter.
            // Look for the package System.Data.SqlClient by Microsoft and select it.

            SqlConnection objConn = new SqlConnection("Server=XPS8700\\SQLSVR08R2;Database=V014U07NUI;Trusted_Connection=True;");

            SqlCommand objCommand = new SqlCommand();
            SqlDataAdapter objDA = new SqlDataAdapter();

            DataSet objDS = new DataSet();

            objCommand.CommandText = "Select * from users where name_last = 'schimsky'";
            objCommand.Connection = objConn;
            objDA.SelectCommand = objCommand;
            objDA.Fill(objDS, "Table1");
            objConn.Close();

                    

            //3 ways to do this... 'Convert' or (String) or ToString().....
            //Convert...
            MessageBox.Show(Convert.ToString(objDS.Tables[0].Rows[0]["Name_last"]));
            //(String)...
            MessageBox.Show((String)(objDS.Tables[0].Rows[0]["Name_First"]));
            //.ToString()...
            MessageBox.Show(objDS.Tables[0].Rows[0]["Name_First"].ToString()) ;
'************************************************************************************************************************************



'*********************SQL SERVER NONQUERY UPDATE *****************************
        Dim objConn As New System.Data.SqlClient.SqlConnection(Session("ConnectionString"))
        Dim objcommand As New SqlCommand
        Dim QStr As String

        QStr = "UPDATE ScoreFile SET "
        QStr = QStr & "ScoreFile.Responses = '" & vResp & "'" & ","
        QStr = QStr & "ScoreFile.Items = '" & Istr & "'" & ","
        QStr = QStr & "ScoreFile.Raw = '" & Trim(Str(vRaw)) & "'" & ","
        QStr = QStr & "ScoreFile.Theta = '" & Trim(vTheta) & "'" & ","
        QStr = QStr & "ScoreFile.TotalTime = '" & vTotalTime & "'"
        QStr = QStr & " WHERE (((ScoreFile.cLogin)='" & Session("id") & "'));"

        objcommand = New SqlCommand(QStr, objConn)
        objConn.Open()
        objcommand.ExecuteNonQuery()
        objConn.Close()
'***************************************************************************************

'***********************SQL Database NONQUERY INSERT APPEND*************************************
 Dim objConn As New SqlConnection("data source=SCHIMSKYPC;Integrated Security=SSPI;Database=SecureExam")
 Dim objCommand As New SqlCommand

 Dim v1 As String = "'" & a(1) & "'"
 Dim v2 As String = "'" & a(2) & "'"
 Dim v3 As String = "'" & a(3) & "'"
 Dim v4 As String = "'" & a(4) & "'"
 Dim v5 As String = "'" & a(5) & "'"
 Dim v6 As String = "'CompUSA'"
 Dim v7 As String = "'United States'"

 'WebForm Fields....
 Dim strValues As String = v1 & "," & v2 & "," & v3 & "," & v4 & "," & v5 & "," & v6 & "," & v7
 'Database Fields...
 Dim strFields As String = "SiteAddress1,SiteCity,SiteState,SiteZip,SiteCode,SiteName,SiteCountry"
 objCommand = New SqlCommand("INSERT INTO SiteInfo (" & strFields & ") VALUES (" & strValues & ")", objConn)
 objConn.Open()
 Try
     objCommand.ExecuteNonQuery()
 Catch ex As SqlException
     MessageBox.Show(ex.Message)
 End Try
 objConn.Close()
 '*********************************************************************************************

'******** Call a stored Procedure Query*************************************************
        
        Dim DsLogin As New DataSet()
        Dim objConn As New SqlConnection
        
        'Get the connection string....
        Session("ConnectionString") = ConfigurationSettings.AppSettings("ConnectionString")
        
        objConn = New System.Data.sqlclient.SqlConnection(Session("ConnectionString"))
        Dim objCommand As New SqlCommand("CandidateLogin", objConn)
        Dim objDA As New SqlDataAdapter
        objCommand.CommandType = CommandType.StoredProcedure
        objCommand.Parameters.Add("@AccessCode", txtAccessCode.Text.Trim)
        objDA.SelectCommand = objCommand
        objDA.Fill(DsLogin, "Login")
        objConn.Close()
'*************************************************************************************



'**************** MYRIGHT FUNCTION ******************************************************
    Function myRight(ByVal s As String, ByVal n As Integer) As String
        Try
            s = s.Substring(s.Length - n)
        Catch
            s = ""
        End Try
        Return s
    End Function
'***********************************************************************************************

 '***********************NONQUERY OR SCALAR INSERT APPEND*************************************
    Dim objConn As New SqlConnection
    Dim objCommand As New SqlCommand

    Dim v1 As String = "19"
    Dim v2 As String = "16"
    Dim v3 As String = "'hello'"
    Dim Values As String = v1 & "," & v2 & "," & v3

    Dim FieldNames As String = "Id_Score_File,Id_Exam_Bank,Comment"

    objConn = New System.Data.sqlclient.SqlConnection("Server=STEVESCHIMSKY;Database=Exam;Trusted_Connection=True;")
    objCommand = New SqlCommand("Insert into score_comments (" & FieldNames & ") values(" & Values & ") select scope_identity() as iID_Score_Comment", objConn)
    objConn.Open()

    Try

      'Select Either (A) or (B) *******************
      '(A)...DO NOT RETURN IDENTITY FIELD VALUE...
      'objCommand.ExecuteNonQuery()
      '(B)...RETURN IDENTITY FIELD VALUE...
      'Dim o As Object
      'o = objCommand.ExecuteScalar
      '********************************************

    Catch ex As SqlException
      MessageBox.Show(ex.Message)
    End Try
    objConn.Close()
   '*********************************************************************************************