'***************************************
' variabile care trebuie setate

Dim strOpenInFolder	' directorul unde se afla fisierele de import

	rstTemp.Open "SELECT * FROM DialAlt WHERE AltID < 0", DbConnection, adOpenKeyset, adLockOptimistic

while not rstDialAltEmpty.EOF
rstTemp.AddNew
rstTemp("AltID") = rstDialAltEmpty("AltID")