Here is how to instantiate the ODBC or OLEDB Provider:
Dim provider As New OdbcProvider()
provider.ConnectionString = "My Connection String"