Visual Basic - Problemilla

TENGO EL SIGUIENTE CODIGO Y CUANDO LO EJECUTO ME DICE QUE NO ENCUENTRE EL ARCHIVO DE LA BASE DE DATOS, PERO LA RUTA DE ACCESO ES CORRECTA, QUE ES LO QUE HAGO MAL?

Dim miBD As Database
Dim mirs As Recordset
Dim sdb As String

sdb = "virtua.mdb"
Codigo = Text1.Text
Categoria = " Combo1.List "
Descripcion = " Text2.Text "
PVP = Text4.Text
stock = Text6.Text
Set miBD = OpenDatabase("yo.mdb")
sql = "INSERT INTO Productos (Codigo, Categoria, Nombre, PVC, PVP, Stock)"
sql = sql & "VALUES (' & Codigo & ', ' & Categoria & ', ' & Descripcion & ', ' & PVC & ', ' & PVP & ', ' & Stock & ' "
Set mirs = miBD.OpenRecordset(sql, dbOpenDynaset)

Pones el nombre de la BD yo.mdb deverias poner la ruta completa, a no ser que el directorio actual sea el de la aplicación eso lo ves con la funcion CurDir de VB.

Saludos.