Есть хранимая процедура с параметром:

CREATE PROCEDURE dbo.sp_showcont
@num_cont char
AS
SET NOCOUNT ON
select Номер_контейнера, Фидерный_теплоход, Дата_прихода, Получатель, Клиент from baze..main where Номер_контейнера=@num_cont
GO

Кусок кода который ее вызывает:

Private Sub Command2_Click()
Dim i As Integer
Dim str As String
rs_temp.Close
Set rs_temp = Nothing
For i = 0 To List1.ListCount
If List1.Selected(i) Then
rs.Close
Set rs = Nothing
Set rs = New ADODB.Recordset
rs.ActiveConnection = cnn
rs.CursorLocation = adUseClient
cmd.CommandType = adCmdStoredProc
cmd.CommandText = "sp_showcont"
cmd.Parameters.Refresh
str = List1.List(i)

cmd.Parameters("@num_cont") = str

rs.Open cmd, , adOpenDynamic, adLockOptimistic
Form1.Grid.DataSource = rs
Me.Hide
Form1.Enabled = True
Exit Sub
End If
Next i
End Sub

В выделенной строке выдает ошибку:

Application uses a value of the wrong type for the current operation

Тип вроде и там и там символьный.

Что может быть?

Заранее спасибо.

Melkiades

Set p1 = cmd.CreateParameter("@num_cont", adVarChar, adParamInput, 255)
cmd.Parameters.Append p1
cmd.Parameters.Refresh
'str = List1.List(i)
cmd("num_cont") = List1.List(i)
rs.Open cmd, , adOpenDynamic, adLockOptimistic

а при присвоение параметра все равно таже ошибка. :( вроде по книге так нада присваивать...