Ayuda en Codigo

[Isaacgm78]

Hola comunidad como estamos????
bueno primeramente es mi primera ves por estos rumbos y os saludo a todos por dicha comunidad a la ves ando buscando ayuda para cierto codigo que me funciona perfectamente en MSAccess 97 and MSaccess XP, pero el problema es que cuando vengo a usar la misma DataBase en MSAccess 2003 no me funciona , el codigo es el siquiente la cual estoy usando un MODULE para ello :

Código: Seleccionar todo

'------------------------------------------------------------------------
' FUNCTION: GetOrderNumber
'
' PURPOSE: Retrieves the next Order Number from the Settings table
'------------------------------------------------------------------------
Function GetOrderNumber() As Long
    Dim db As Database
    Dim t As Table
    Dim num As Long
   
    Set db = OpenDatabase("\\Malaka\Service\SK_Table.mdb")
    Set t = db.OpenTable("Settings")

    t.MoveFirst
    num = t.OrderNumber
    t.Edit
    t.OrderNumber = t.OrderNumber + 1
    t.Update

    t.close
    GetOrderNumber = num
End Function

NOTA : este codigo fue elaborado por un amigo mio hace tiempo atras todas las referencias estan colocadas tando como en 97, XP y 2003..
Pero no funciona correctamente en 2003 en esta area :

Set db = OpenDatabase("\\Malaka\Service\SK_Table.mdb")

la verdad apreciaria cualquier ayuda en este caso y si hay alguna mejor manera de hacerlo seria mucho mejor..


Gracias de ante mano

Isaac

[Arkhel]

Faltaría saber el error que te marca.

creo que es vb6
hay muchas maneras de establecer conexion
una es

puedes agregar la base en el origen de datos

panel de control
herramientas ad...
Origenes de Datos(ODBC)

Agregar

driver access.mdb

selecciona la base y establecele un nombre.

despues en el código

agregando referencia active..ado 2.5 creo no recuerdo bien

Dim conexion as new adodb.connection

conexion.open "NombreDeLaBaseQueEstablecisteEnElOrigenDeDatos"