Instruccion para abrir tabla independiente desde sql server desde visual basic 6.0

'CONECTARSE A UNA TABLA INDEPENDIENTWE

Sub AbrirProducto()
    With regProducto
        If .State = 1 Then   'si esta abierta la tabla, la cierra
            .Close
        Else
            .Open "Select * from Producto", Cone, adOpenStatic, adLockOptimistic
        End If
    End With
End Sub

se crean modulos para la funcion main