Visual Basic - conectar Visual Basic a windows server 2003

Necesito, bajar una informacion que esta en el servidor windows 2003 server para mostrarla en un formulario, la informacion esta cargada en le active del servidor, pero quiero saber como abro cierro y trabajo con esta conexion, porfis si me puedes ayudar...

Probá esto, a ver si te puedo guiar.
Saludos.

Private Const MAX_PATH = 160
Private Type DSBROWSEINFO
cbStruct As Long
hwndOwner As Long
pszCaption As String
pszTitle As String
pszRoot As String
pszPath As Long
cchPath As Long
dwFlags As Long
pfnCallback As Long
lParam As Long
dwReturnFormat As Long
pUserName As String
pPassword As String
pszObjectClass As String
cchObjectClass As Long
End Type
Private Declare Function DsBrowseForContainer Lib "dsuiext" Alias "DsBrowseForContainerA" (pInfo As DSBROWSEINFO) As Long
Private Sub Form_Load()

Dim dsbi As DSBROWSEINFO, szResult As String
szResult = Space(MAX_PATH)
dsbi.cbStruct = Len(dsbi)
dsbi.pszCaption = "Container"
dsbi.pszTitle = "Señala un Container para verlo y luego hacé Click en OK"
dsbi.pszPath = StrPtr(szResult)
dsbi.cchPath = Len(szResult)
DsBrowseForContainer dsbi
MsgBox szResult
End Sub