Visual Basic - SQL Server 7.0 y Visual Basic 6

Hola necesito ayuda urgente. Alguien sabe como puedo hacer para concectarme a un servidor que tiene SQL Server 7 y conectarme a una base de datos y abrir una tabla para poder añadir nuevos registros o añadir nuevas columnas o eliminarlas? mi base de datos se llama LMX y la tabla DICT_DOCTORS, por favor contestar lo antes posible o mandarme alguna aplicacion que haga algo parecido y como se hace.

Codigo para abrir base
Global BaseActivos As New ADODB.Connection
Global RegisActivos As New ADODB.Recordset
Global StrSql As String, CodA As Long

Sub AbreBase()
conexion = "DSN=OdbcActivos;uid=sa;pwd=;database=ActivosFijos"
BaseActivos.Open conexion
End Sub

Codigo para las tablas
StrSql = "exec BorraUsuarios '" & Right(LstUsuarios, 3) & "'"
BaseActivos.Execute StrSql
bueno yo lo hagocon sp
pero lo unico que tienes que hacer es esto
StrSql = "delete from tabla"
BaseActivos.Execute StrSql

y Para un select
StrSql = "exec ConsultaListaSubgrupos '"
RegisActivos.Open StrSql, BaseActivos, adOpenKeyset, adLockReadOnly
If Not RegisActivos.EOF Then

pero sin store procedures es asi
StrSql = "select * from tabla1'"
RegisActivos.Open StrSql, BaseActivos, adOpenKeyset, adLockReadOnly
If Not RegisActivos.EOF Then
text1= regisactivos("Campo1")