Sub ObtenerProximoValorSecuencia()
Dim con As ADODB.Connection
Dim rs As ADODB.Recordset
Dim secuencia As String
Dim proximoValor As Long
' Establecer la cadena de conexión ODBC a la base de datos Oracle
Set con = New ADODB.Connection
con.ConnectionString = "DRIVER={Oracle ODBC Driver};SERVER=nombre_servidor;UID=usuario;PWD=contraseña;"
con.Open
' Nombre de la secuencia de Oracle
secuencia = "nombre_secuencia"
' Obtener el próximo valor de la secuencia
Set rs = con.Execute("SELECT " & secuencia & ".NEXTVAL AS ProximoValor FROM DUAL;")
proximoValor = rs("ProximoValor").Value
' Cerrar la conexión y liberar recursos
rs.Close
con.Close
Set rs = Nothing
Set con = Nothing
' El valor obtenido de la secuencia se puede utilizar como necesites en Access
MsgBox "Próximo valor de la secuencia: " & proximoValor
End Sub