Visual Basic - error 3704 en tiempo de ejecución

Hola:

Mi problema es el siguiente: estoy recién empezando en esto y estoy tratando de ingresar datos a una simple tabla de proveedores que esta echa en sql server 2000 y al apretar el boton guardar me da el "error 3704 3n tiempo de ejecución la operación no esta permitida si el objeto está cerrado" el codigo es el siguinete:

Private Sub Command1_Click()
Dim tabla As String
tabla = "proveedor"

rut = texto(0)
nombre = texto(1)
comuna = texto(2)
calle = texto(3)
numero = texto(4)
telefono = texto(5)
web = texto(6)

consulta = "INSERT INTO proveedor (rut,nombre,comuna,calle,numero,telefono,web) VALUES ( ' " & rut & " ',' " & nombre & " ',' " & comuna & " ',' " & calle & " ',' " & numero & " ',' " & telefono & " ',' " & web & " ')"
pun.Execute (consulta) 'AQUI SE ME MARCA EL ERROR

y en un modulo aparte llamado procesos esta la funcion conectar, el codigo es el siguinete:

Public pun As New ADODB.Connection

Public Sub conectar()
Set pun = New Connection
pun.CursorLocation = adUseClient
pun.Open "PROVIDER=MSDASQL;driver={SQL Server};server=IPVG-J8JBQ2YJGN;uid=;pwd=;database=proveedores;"
abrir = False
End Sub

QUIZÁS ES LA CONEXION O HAY QUE MODIFICAR ALGO EN LAS PROPIEDADES DEL FORMULARIO ESO NO LO SE

BUENO SERÍA ESO OJALÁ ME RESPONDAN

El mensaje es bastante claro:
La conexión no está abierta, comprueba que se pasa por el procedimiento conectar, o que no se pasa por un procedimiento que la cierre.
Además deberías cambiar la declaración de pun a:
Public pun As ADODB.Connection
así si no se pasa por conectar el error cambiaría a 91, además consumiría menos recursos, dado que si se está pasando por conectar estás creando dos conexiones.

Error 3704 en tiempo de ejecución al trabajar con Dataenvironment

Error 3704 en tiempo de ejecución

hola necesito ayuda estoy trabajando con dataenvironment y me presenta problemas, me presenta error 3704 en la ejecucion.. alguien me puede ayudar por favor.