TSQL Datei ausführen

Hallo!
Ich will die Update-Routine in meinem Programm verbessrn:
eine SQL Datei aus dem Dateisystem am Server ausführen.

Naiverweise habe ich mir das so gedacht, was natürlich nicht funktioniert:

Dim stDatei As String
Dim cd As ADODB.Command

On Error GoTo err_Gearwheel

stDatei = „D:\ufafrmKundeneingabe.sql“ 'Debugging
'stDatei = Dialog.OpenFile("*.sql")
Set cd = New ADODB.Command
cd.ActiveConnection = CurrentProject.Connection
cd.CommandType = adCmdText
cd.CommandText = stDatei
cd.Execute

Bitte um eine funktionierende Variante!

Vielen Danke und
Grüsse aus Wien!