Coneccion de visual basic 6 a mysql

[juanjoselive]

Hola compañeros estoy creando un proyecto con visual basic y mysql

EL ERROR ES EL SIGUIENTE

objetio de rs.ADDNEW

(NO SE PUEDE UTILIZAR LA CONECCION PARA REALIZAR ESTA OPERACION, ESTA CERRADA O NO ES VALIDA PARA ESTE CONTEXTO)


tengo la siguiente coneccion:

Public cn As ADODB.Connection
Public rsp As ADODB.Recordset
Dim db As Database

Function conectar() As Boolean

Set cn = New ADODB.Connection
On Error GoTo errorconec
cn.Open "dsn=evaluacion_docente"
conectar = True
Exit Function
errorconec:
MsgBox "Error en la coneccion"
conectar = False



End Function

Sub desconectar()
cn.Close
Set rsp = Nothing
Set cn = Nothing

End Sub