Code for either MS Access or SQL Server - sql-server

Question

I have a program that uses either a SQL Server database or a MS Access database.
I'm trying to figure out a way to use either of the databases with the same code. As an example you would do the folowing depending on what DB you're using:
SQL Server:
Using cmd As SqlCommand = New SqlCommand(SQLQuery, Connection)
Using rs As SqlDataReader = cmd.ExecuteReader
Do While rs.Read
' Do something
Loop
End Using
End Using
MS Access:
Using cmd As OleDbCommand= New OleDbCommand(SQLQuery, Connection)
Using rs As OleDbDataReader= cmd.ExecuteReader
Do While rs.Read
' Do something
Loop
End Using
End Using
In my case , I could implement something like this:
Dim rs As New Object
Dim con As Object
Dim cmd As Object
If SQL-Server Then
con = TryCast(conSQL-Server, SqlConnection)
cmd = New SqlCommand
rs = TryCast(rs, SqlDataReader)
Else
con = TryCast(conMS-Access, OleDb.OleDbConnection)
cmd = New OleDb.OleDbCommand
rs = TryCast(rs, OleDb.OleDbDataReader)
End If
Try
With cmd
.Connection = con
.CommandText = SQLQuery
rs = .ExecuteReader
End With
Do While rs.Read
' Do something
Loop
Catch ex As Exception
' Handle Error
Finally
If Not rs Is Nothing Then
If Not rs.IsClosed Then rs.Close()
rs.Dispose()
End If
cmd.Dispose()
End Try
but that's a lot of hassle. It would be nice if you could create a custom type to do something like:
If SQL-Server Then
DBCommand = SqlCommand
DBReader = SqlDataReader
Else
DBCommand = OleDbCommand
DBReader = OleDbDataReader
End
Using cmd As DBCommand = New DBCommand(SQLQuery, connection)
Using rs As DBReader = cmd.ExecuteReader
Do While rs.Read
' Do something
Loop
End Using
End Using
Any ideas?

Answer 1

I discovered the answer:
Dim con As IDbConnection
If SQL-Server Then
con = conSQL-Server
Else
con = conMS-Access
End If
Using cmd As IDbCommand = con.CreateCommand()
cmd.CommandText = SQLQuery
Using rs As IDataReader = cmd.ExecuteReader
Do While rs.Read()
' Do something
Loop
End Using
End Using
It's too bad CreateCommand doesn't take parameters.