'********** Data Access Blocks Select A DataSet ************************************************         

      Imports Microsoft.ApplicationBlocks.Data (Get The DLL Zip File Here)

      Dim objDs As DataSet

      Dim sConnection As String = "Server=(local);Database=NorthWind;Trusted_Connection=True;"

      Dim sqlparams(1) As SqlClient.SqlParameter

      sqlparams(0) = New SqlClient.SqlParameter("@LastName", "Dodsworth")

      sqlparams(1) = New SqlClient.SqlParameter("@FirstName", "Anne")

      objDs = SqlHelper.ExecuteDataset(sConnection, CommandType.StoredProcedure, "spGetEmployee", sqlparams)

      objDs.Tables(0).TableName = "Employee"

      MessageBox.Show(objDs.Tables("Employee").Rows(0).Item("LastName"))

'***********************************************************************************************

 '****** Data Access Blocks Execute NonQuery ******************************************************

Imports Microsoft.ApplicationBlocks.Data (Get The DLL Zip File Here)

      SqlHelper.ExecuteNonQuery(sConnection, CommandType.Text, "Delete From Sites Where Id_Sites = X")

     '*************************************************************************************************

 '***********************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()

   '*********************************************************************************************