Coneccion Base de Datos

Hola David:
Quisiera saber como conectar mi base de datos sin tener que poner el path: c:\Tesis Gris\BDFlowers\SistemaFlowers.mdb
y que la busque como SistemaFlowers.
Te paso mi codigo con el que ahora esta conectada.La habia conectado con Microsoft Jet pero ahora tengo ODBC y pero intente hacer la coneccion pero hasta ahora no pude hacerla funcionar.
Sub Main()
On Error GoTo Falla 'control de errores en tiempo de ejecucion
'Crea Instancias y Conecta Abre la Base de Datos
Const sPathBase As String = "c:\Tesis Gris\BDFlowers\SistemaFlowers.mdb"
Set cnSistemaFlowers = New ADODB.Connection
Set rstCliente = New ADODB.Recordset
Set rstProvincia = New ADODB.Recordset
Set rstLocalidad = New ADODB.Recordset
Set rstRespIva = New ADODB.Recordset
Set rstDatosEmpresa = New ADODB.Recordset
Set rstFacturas = New ADODB.Recordset
Set rstProductos = New ADODB.Recordset
Set rstRubrosProductos = New ADODB.Recordset
Set rstRubros = New ADODB.Recordset
Set rstFVentaPago = New ADODB.Recordset
Set rstDetalleFactura = New ADODB.Recordset
Set rstTipoOperac = New ADODB.Recordset
Set rstUsuarios = New ADODB.Recordset
Set rstCompras = New ADODB.Recordset
Set rstProveedores = New ADODB.Recordset
Set rstEstadoFactura = New ADODB.Recordset
Set rstDetalleCompra = New ADODB.Recordset
Set rstGraficoCompra = New ADODB.Recordset
Set rstTipoFactura = New ADODB.Recordset
Set rstTipodeUsuario = New ADODB.Recordset
With cnSistemaFlowers
.Provider = "ADODB"
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & sPathBase & ";"
.Open
.CursorLocation = adUseClient
End With
'Abrir el conjunto de registros
rstCliente.Open "SELECT * FROM Clientes ", cnSistemaFlowers, adOpenDynamic, adLockOptimistic
rstFacturas.Open "SELECT * FROM Facturas", cnSistemaFlowers, adOpenDynamic, adLockOptimistic
rstProductos.Open "SELECT * FROM Productos", cnSistemaFlowers, adOpenDynamic, adLockOptimistic
rstRubros.Open "SELECT * FROM Rubros_Productos_SF", cnSistemaFlowers, adOpenDynamic, adLockOptimistic
rstRubrosProductos.Open "SELECT * FROM Rubros_Productos_SF", cnSistemaFlowers, adOpenDynamic, adLockOptimistic
rstProvincia.Open "SELECT * FROM Provincia", cnSistemaFlowers, adOpenDynamic, adLockOptimistic
rstLocalidad.Open "SELECT * FROM Localidad", cnSistemaFlowers, adOpenDynamic, adLockOptimistic
rstRespIva.Open "SELECT * FROM Responsable_Iva", cnSistemaFlowers, adOpenDynamic, adLockOptimistic
rstDatosEmpresa.Open "SELECT * FROM DatosEmpresa", cnSistemaFlowers, adOpenDynamic, adLockOptimistic
rstDetalleFactura.Open "SELECT * FROM Detalle_Factura", cnSistemaFlowers, adOpenDynamic, adLockOptimistic
rstFVentaPago.Open "SELECT * FROM F_VP", cnSistemaFlowers, adOpenDynamic, adLockOptimistic
rstTipoOperac.Open "SELECT * FROM Tipos_Operaciones_Audit", cnSistemaFlowers, adOpenDynamic, adLockOptimistic
rstUsuarios.Open "SELECT * FROM Usuarios", cnSistemaFlowers, adOpenDynamic, adLockOptimistic
rstCompras.Open "SELECT * FROM Compras_A_Proveed", cnSistemaFlowers, adOpenDynamic, adLockOptimistic
rstProveedores.Open "SELECT * FROM Proveedores", cnSistemaFlowers, adOpenDynamic, adLockOptimistic
rstEstadoFactura.Open "SELECT * FROM Estado_Factura", cnSistemaFlowers, adOpenDynamic, adLockOptimistic
rstDetalleCompra.Open "SELECT * FROM Detalle_Compra", cnSistemaFlowers, adOpenDynamic, adLockOptimistic
rstGraficoCompra.Open "SELECT Mes,Año, MontoTotal FROM GraficoCompra WHERE Año Between #1-1-2002# and #12-31-2002# ", cnSistemaFlowers, adOpenDynamic, adLockOptimistic
rstTipoFactura.Open "SELECT * FROM TipoFactura", cnSistemaFlowers, adOpenDynamic, adLockOptimistic
rstTipodeUsuario.Open "SELECT * FROM Tipos_Usuarios", cnSistemaFlowers, adOpenDynamic, adLockOptimistic
'Ruta de acceso
ChDir App.Path
On Error GoTo 0 'detiene el control de errores
Falla: 'instruccion del mensaje de error
If Err.Number = Falla Then Exit Sub
MsgBox "Problemas con la Base de Datos, por favor verifique!!!", vbCritical, "ERROR"
Set cnSistemaFlowers = Nothing
Err.Clear
End Sub
Espero alguna respuesta.
Saludos
Griselda