Seleccionar carpeta con control common dialog

[Kruzado]

a lo ke preguntas no tengo idea, si ocupo el common dialog para saber la ruta de una base de datos, para eso ocupo la siguiente funcion :

rutaold = rutanorte
CommonDialog1.ShowOpen
If CommonDialog1.FileName <> "" Then
completa = CommonDialog1.FileName
controlillo = True
posi = 1
While controlillo
equis = InStr(posi, completa, "\")
If equis = 0 Then
rutanorte = Mid(completa, 1, posi - 2)
controlillo = False
Else
posi = equis + 1
End If
Wend



rutanew = rutanorte
lo que hace es cuando le doy click al archivo dentro de la ruta que necesito, selecciono solo la ruta de la cadena: funca mas o menos asi :
en completa tengo la ruta completa (con nombre de archivo incluido)
en el while elimino el nombre del archivo, buscando los "\" que tenga la ruta
por ejemplo :
"c:\autoexec.bat" solo tiene un \ entonces le saco el autoexec.bat y me quedo con "c:\"
y esa ruta la guardo en rutanorte....
entonces cuando salga del ciclo while vas a tener en la variable rutanorte la ruta del archivo

complicado... si se... pero funciona