Visual Basic - Crear DNS desde Visual Basic

Por favor quisiera saber como podria crear un DNS de usuario desde codigo visual basic? Gracias

Set ConGestSwimComp = New ADODB.Connection
DBEngine.RegisterDatabase "GestionComp", "Microsoft Access Driver (*.mdb)", True, "DBQ="C:\GestionComp.MDB"
ConGestSwimComp.ConnectionString = "PROVIDER=MSDataShape;Data PROVIDER=MSDASQL; dsn=GestionComp;uid=;pwd=;"
ConGestSwimComp.CursorLocation = adUseClient
ConGestSwimComp.Mode = adModeReadWrite
ConGestSwimComp.Open

Estimado amigo:
El recurso de hoy de www.ambsoftware.com trata precisamente de eso.
Un saludo