ADO Database VB.Net

Imports System.Data.Common
Imports System.Configuration
Module GenericDatabaseTest
    Public Sub Main()
        Dim Factory, Connection, Query As String
        Factory = "Factory"
        Connection = "Connection"
        Query = "Query"
        Dim Provider As DbProviderFactory
        Provider = DbProviderFactories.GetFactory(Factory)
        Dim con As DbConnection = Provider.CreateConnection()
        con.ConnectionString = Connection
        Dim Adapter As DbDataAdapter = Provider.CreateDataAdapter
        Adapter.SelectCommand = Provider.CreateCommand()
        Adapter.SelectCommand.Connection = con
        Adapter.SelectCommand.CommandText = Query
        Dim ds As New DataSet
        Adapter.Fill(ds, "Orders")
        For Each Row As DataRow In ds.Tables("Orders").Rows
            Console.WriteLine(Row("OrderID"))
        Next
    End Sub
End Module