Ho un bel problema...aiutatemi
Vi spiego il progetto che sto creando:
In Access 2000 programmando con Visual Basic riesco ad aprire un programma di modellazione 3d(Rhinoceros).

Public Sub ModellaSingoloAtipico()

DoCmd.RunCommand acCmdAppMinimize
If ConnessioneRSS = True Then
Me.Dirty = False

objRhino.Visible = True
Sleep (500)

Dim strCartellaProdotti As String
'strCartellaProdotti = BrowseFolder("Seleziona una cartella di lavoro please")
strCartellaProdotti = CurrentProject.Path & "\Cartella_Prodotti"
If IsNull(strCartellaProdotti) Then
MsgBox "Script Annullato"
Exit Sub
End If
strCartellaProdotti = Chr(34) & strCartellaProdotti & "\" & Chr(34)

Dim strDBPath As String
strDBPath = Chr(34) & CurrentProject.FullName & Chr(34)

'path della cartella "files" che contine scripts e tappi
Dim strCartellaFiles As String
strCartellaFiles = Chr(34) & CurrentProject.Path & "\files\" & Chr(34)

'nome del report di generazione
Dim strDataEOra, strNomeFileReport As String
strDataEOra = Year(Now) & Month(Now) & Day(Now) & "_" & Hour(Now) & "." & Minute(Now)
strNomeFileReport = Chr(34) & CurrentProject.Path & "\Reports\Report_Generazione_" & strDataEOra & ".txt" & Chr(34)

Dim strEan As String
strEan = Chr(34) & Me.Codice_EAN & Chr(34)

Dim Dichiarazione As String, Variabili As String
Dichiarazione = "Public strCartellaProdotti, strDBPath, strCartellaFiles, strEan, strNomeFileReport" & vbCr
Variabili = "strCartellaProdotti = " & strCartellaProdotti & vbCr & "strDBPath = " & strDBPath & vbCr & "strCartellaFiles = " & strCartellaFiles & vbCr & "strEan = " & strEan & vbCr & "strNomeFileReport = " & strNomeFileReport & vbCr

Dim ScriptScelto As String
ScriptScelto = Chr(34) & CurrentProject.Path & "\files\scripts\ScriptIniziale_SingoloAtipico. rvb" & Chr(34)

objRhinoScript.Command ("-_RunScript (" & vbCr & Dichiarazione & Variabili)
objRhinoScript.Command ("-_LoadScript " & ScriptScelto & vbCr)

Set objRhino = Nothing
Set objRhinoScript = Nothing

End If
End Sub


All'apertura Di Rhino gli faccio lanciare automaticamente uno script .rvb=.txt per preimpostare il programma.
L'utente ora può lavorare con Rhinoceros e una volta finita la modellazione cliccando un pulsante gli faccio leggere uno script.rvb .txt con il quale riesco a far automatizzare vari processi fino alla chiusura del seguente programma:

Sub ApriDB

Set objConnection = CreateObject("ADODB.Connection") 'definisci connessione
Set objRecordSet = CreateObject("ADODB.Recordset") 'definisci tabella

'strDBPath = Rhino.OpenFileName("Select DataBase","Access Files (*.mdb)|*.mdb||") 'Seleziona .mdb da importare
strProvider = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
strDsn = strProvider & strDBPath
'If IsNull(strDBPath) Then
' MsgBox "Nessun File Selezionato"
' Exit Sub
'End If

Dim strRecord
strRecord = "SELECT * FROM Tabella_Generale WHERE Codice_EAN =" & "'" & strEan & "'"
objConnection.Open strDsn 'Apri il DB
objRecordSet.CursorLocation = 3
objRecordSet.Open strRecord , objConnection, 3, 3 'apri record

Call LeggiRecord 'avvia la subrutine per leggere il record

'Salvare e Chiudere il DB, dissociarne le variabile
Call objStream.Close 'chiudi il report
Call objRecordSet.Close
Call objConnection.Close
Set objRecordSet = Nothing
Set objConnection = Nothing

'Ripristina la finestra di Rhino
'Rhino.Command "_Maximize"

'MsgBox "Script Completato"

Rhino.exit

End Sub
Il mio problema è che vorrei tornare automaticamente ad Access o a fargli leggere una sub di Access.
Suppongo che devo aggiungere linguaggio nell'ultimo script lanciato da Rhino...aiutatemi!!!