Вот базовый код, использующий VB.NET, который открывает и закрывает соединение с MSSQL:
Imports System.Data.SqlClient
Dim SqlConn As New SqlConnection
SqlConn.ConnectionString = "Data Source=myServerAddress;Initial Catalog=myDataBase;User Id=myUsername;Password=myPassword;"
SqlConn.Open()
SqlConn.Close()
SqlConn.Dispose()
Это должно удовлетворить вашу просьбу, я верю. Если это действительно VB6, то это будет совершенно другой синтаксис.