ASP.NET

cnnContact.Open()
trnContact = cnnContact.BeginTransaction()

cmdContact.Transaction = trnContact
cmdContact.ExecuteNonQuery()

Dim connStr As string = ConfigurationManager.ConnectionStrings("DefaultConnection").ConnectionString
Dim query as string = "SELECT ID FROM TABLE"

Dim conn as New SqlConnection(query)
Dim cmd as New SqlCommand(query, conn)

Try

    conn.open()
    Dim reader as SQLDataReader = cmd.ExecuteReader()
    while reader.Read()
      pValue = reader.GetInt32(0)
    End While

    reader.Close()

Catch ex as SQLException
    'If there is an error, this will tell you why, so fix the error
    ' but without the finally, the conn will be left open, 
    'So if you get too many conn open to the sql server, the sql server will hang

Finally
    conn.Close()

End Try

.Add("@DistrictId", SqlDbType.TinyInt).Value = CheckBoxList1.SelectedValue

Public Structure structure_accountInfo
    Public m_firstName as string
    Public m_lastName as string
End Structure

Public Shared Function account_db_update(ByVal sAI as structure_accountInfo) as Integer

    Dim dwExitCode As Integer = 2
    Dim connStr As String = ConfigurationManager.ConnectionStrings("DefaultConnection").ConnectionString
    Dim conn As New SqlConnection(connStr)

    Dim query as string = _
    "UPDATE TABLE " & _
    " SET " & _
    "  firstName = @firstName " & _
    ", lastName = @lastName " & _
    " WHERE ID = @ID "

    Dim cmd As New SqlCommand(query, conn)

    Dim param__FirstName As SqlParameter
    param__FirstName = New SqlParameter("@FirstName", SqlDbType.VarChar, 80)
    param__FirstName.Value = sAI.m_firstName
    cmd.Parameters.Add(param__FirstName)

    Dim param__LastName As SqlParameter
    param__LastName = New SqlParameter("@LastName", SqlDbType.VarChar, 80)
    param__LastName.Value = sAI.m_lastName
    cmd.Parameters.Add(param__LastName)

    Try
        conn.Open()
        cmd.ExecuteNonQuery();

        dwExitCode = 0

    Catch ex As Exception
        dwExitCode = 1

    Finally

        conn.Close()
        conn = Nothing
        cmd = Nothing

    End Try

    return dwExitCode

End Function

Dim sAI as new structure_accountInfo()
sAI.m_firstName = txt_firstName.text.trim
sai,m_lastName = txt_lastName.Trim

account_db_update(sAI)