Visual Basic - DAO

Hola, soy principiante en la programacion en Visual basic, especialmente en aplicaciones para bases de datos.

Encontre un manual en la web y he seguido al pie de la letra lo que el manual dice pero tengo un error, el codigo es el siguiente.

Option Explicit
Dim Ruta As Integer
Public Mibase As Database
Public TablaProductos As Recordset
Public Tablaventas As Recordset

Public Sub EnlazarBase()
Ruta = "" & App.Path & "\basefacven.mdb" ' Aki me marca el error.
Set Mibase = OpenDatabase(Ruta)
Set TablaProductos = Mibase.OpenRecordset("tProductos")
Set Tablaventas = Mibase.OpenRecordset("tventas")
End Sub

Espero, puedan ayudarme.

Saludos.

Sin tener que probar ese código es fácil ver el error, pero pues no te preocupes que le pasa a todos, y pues tu error radica aquí:

Dim Ruta As Integer

Debería ser así:

Dim Ruta As String

Pues luego haces esta asignación a esa variable:

Ruta = "" & App.Path & "\basefacven.mdb"

Cosa que no es posible pues lo que piensas asignar a una variable de tipo Integer, es una cadena de texto que contiene caracteres de tipo alfabéticos.

Espero haberte ayudado.

Me funciono, muchisimas gracias amigo.

saludos.