Visual Basic - procedimiento almacenado

Hola amigos :

Cual es el codigo para realizar un mantenimiento con un procedimiento almacenado , trabajo con sql 2000

Gracias

Fijate con esto:

Dim cnt As Connection, cmd As Command, rst As Recordset

Set cnt = New ADODB.Connection

cnt.Open "TuConnectionString"

Set cmd = New ADODB.Command

Set cmd.ActiveConnection = cnt

cmd.CommandType = adStoredProc
cmd.CommandText = "MiProcedimiento"

cmd.Parameters.Append cmd.CreateParameter("param1",TipoDeDatos,adParamInput,Longitud,Valor

cmd.Parameters.Append cmd.CreateParameter("param2",TipoDeDatos,adParamInput,Longitud,Valor

cmd.Parameters.Append cmd.CreateParameter("param3",TipoDeDatos,adParamInputOutput,Longitud,Valor

Set rst = cmd.Execute

estoy tratando de realizar el mantenimiento con procedimiento almacenados , el problema q tengo es en el CreateParameter sale de color rojo y ocurre un error

alli esta el codigo a ver si me pueden ayudar :

Declaraciones General

Dim cn As ADODB.Connection
Dim rsDep As ADODB.Recordset
Dim cmd AS ADODB.Command

Private Sub Form_Load()

Set cn = New ADODB.Connection
With cn
.ConnectionString = "DSN=DBGeneral"
.Open
End With
End sub

CmdGrabar_Click

Set cmd=New ADODB.Command

cmd.CommandType = adStoredProc
cmd.CommandText = sp_ingresardepartamento

cmd.Parameters.Append
cmd.CreateParameter("param1",adchar,adParamInput,4,txtcodigo.text)

cmd.Parameters.Append
cmd.CreateParameter("param2",advarchar,adParamInput,50,txtdescrip.text)

Set rsDep = cmd.Execute

EL ERROR Q SALE: ES EN EL CreateParameter , SE TORNAN DE COLOR ROJO
SALE EL SIGUIENTE ERROR :
ERROR SE ESPERABA : = en la parte de txtdescrip.text
gracias