Visual Basic

Imports System.Runtime.CompilerServices

Namespace MyExtensions

    Module mdlTraceListenerExtensions

        <Extension()> _
        Public Sub MyWriteLine(ByVal tr As Trace, ByVal LogType As Integer, ByVal message As String)
            If Not tr Is Nothing Then

            End If
        End Sub

    End Module

End Namespace

Imports System.Data.SqlClient
Imports System.Data.OleDb
Imports System.Text
Imports System.IO
Imports CodeProjectVBTest.MyExtensions

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim i As Integer = 19
        Dim tr As Trace
        tr.MyWriteLine(19, "Hello")

    End Sub

End Class

mdlTraceListenerExtensions.Writeline(tr,logtype,message)

dim cmd as new SqlCommand(yourConnection, "exec ListUsersByRole 'admin'")
dim dr as DbDataReader = cmd.ExecuteReader()
while dr.Next()
    Console.WriteLine(dr("username"))
end while
dr.Close()

using cn as new sqlconnection("ConnectionStringHERE")
  dim cmd as new sqlcommand

  cmd.connection = cn
  cmd.commandType = StoredProc
  cmd.commandText = "MyStoredProc"

  dim Results as integer = cmd.executenonQuery
end using