Smartere måde at lave connection på?

Hej

Når jeg roder i min database på den ene eller anden måde, så har jeg hver gang følgende:

Dim Connstr As String = ConfigurationManager.ConnectionStrings("ConnectionString").ConnectionString
            Dim Connection As New SqlConnection(Connstr)
            Dim Sql As String

            Sql = "....."
            Dim command As New SqlCommand(Sql, Connection)

Selvfølgelig med forskellige Sql linier...

Så kom jeg til at tænke på om der er en smartere måde at lave det på.. Måske i en ekstern fil, så man kunne kalde det med:

MyConnection("SELECT from.....")

Eller et eller andet i den dur..