vb调用通过ODBC调用存储过程问题！？？

我只要一传汉字就报如下错误：[MICROSOFT][ODBC SQL SERVER DRIVER]STRING data,right truncation!其实程序很简单就是试试调用一个SQL 的存储过程~首先要应用ADO动态连接库！VB 的程序为
Dim adopro As New ADODB.Recordset
Public db As New ADODB.ConnectionPrivate Sub Command1_Click()
Dim stm As String
stm = "学习"
Set adopro = Nothingdb.aa stm, adoproEnd SubPrivate Sub Form_Load()
db.ConnectionTimeout = 50
db.Open "medicine", "sa", ""End Sub在SQL 上建立一个MEDICINE 的数据库 其中存储过程AA为
CREATE PROCEDURE AA  (@name char(160)) AS就单独就是这样一个传参数多会报错！
HELP！！HELP！！！