Visual Basic - Ayuda Urgente

Buenas Tardes a Todos:

Estoy haciendo un sistema de Contabilidad y quero que este tenga la
flexibilidad de que pueda ser utilizado en diferentes tipos de bases de dato
como puede ser Access, SQL, Oracle, DBASE, AS400 no se, etc.y mi pregunta
es que puedo hacer yo para que mi sitema pueda ser parametrizado de esta
manera o como me recomiendan que tenga que hacer todads las consultas y
modificaciones a lastablas de mi base de datos.

Ahorita estoy utilizando Data Control e Instrucciones SQL para realizar
mis consultas, actualizaciones, borrar y agregar registros. Ejemplos:

Data Control

DtcTCte.DatabaseName = wruta_db
DtcTCte.RecordSource = "Select *From TPCXCTP"
DtcTCte.Refresh

Instricciones SQL:
Aqui ya sea un Insert Into, Update, Delete, Drop Table, Select etc.
xstr = "Insert into TPCXCTP (CIA, TCTE, DESTC, CC, CCTA, CTACTA,
USER, FEAC, HOAC) Values('"
xstr = xstr & CStr(SSDBCia.Text) & "', '" & CStr(txtBCte.Text) & "',
'" & txtBDesc.Text & "', '"
xstr = xstr & CStr(SSDBCC.Text) & "', '" & SSDBCta.Text & "' , '"
xstr = xstr & Cta & " ', '"
xstr = xstr & Usuario & "', '" & Fecha & "', '" & Hora & "')"

If sw_error = 0 Then
Dim dbs As Database
Set dbs = OpenDatabase(wruta_db)
dbs.Execute xstr
dbs.Close

Gracias por su tiempo.

El problema es que tienes que diferenciar los motores de busqueda Jet y Odbc. Puedes declaras las variablas tipo: Recordset y Rdoresulset
dim buscar as recordset
Set DB1 = OpenDatabase("xxxxxxxx.mdb")

squery1 = "SELECT * FROM perSONAL"
Set Buscar = DB1.OpenRecordset(squery1)
o tambien puedes utilizar las variables rdoresulset para las connexiones odbc.

Recuerda que el problema de usar los datacontrol es que todos no son compatibles con ado y rdo.