SoloCodigo

Bueno el tema es el siguiente y medio confuso bueno creo una base en acces la transformo en acces 97 ya q sino no me deja abrir la base de datos con 97 me la deja abrir pero no me deja agregarle datos y si la convierto en base de datos 2000 o superior no me deja abrirla sino q solamente guardarla nose q hacer

Bueno ak les paso el codigo q esta medio raro XD


Dim BDD As Database 'Objeto para manejar la base de datos
Dim TBL As Recordset 'Objeto para manejar la Tabla
Dim SQL As String
Set BDD = OpenDatabase("C:\Documents and Settings\x\Mis documentos\sd.mdb") 'Abre la base de datos


SQL = "SELECT * FROM Tabla1"
Set TBL = BDD.OpenRecordset(SQL)   'TBL almacena todos los valores de la tabla
    ListView1.ListItems.Clear
    While TBL.EOF = False
        Set Nuevo4 = ListView1.ListItems.Add(, , TBL(0))
            Nuevo4.ListSubItems.Add = TBL(1)
            Nuevo4.ListSubItems.Add = TBL(2)
            Nuevo4.ListSubItems.Add = TBL(3)
            Nuevo4.ListSubItems.Add = TBL(4)
            Nuevo4.ListSubItems.Add = TBL(5)
            Nuevo4.ListSubItems.Add = TBL(6)
            cont = cont + 1
        TBL.MoveNext
    Wend
    BDD.Close

Espero q alguien pueda solucionar mis problemas uso un listview en el cual quiero q cargue datos del acces y q los guarde