求类型不匹配问题

Question

已定义　Dim strUserID$, strPassword&
　strUserID = Replace(Trim(txtUserName.Text), "'", "")
　strPassword = Replace(Trim(txtPassword.Text), "'", "")编译总是提示：　strPassword = Replace(Trim(txtPassword.Text), "'", "")　　类型不匹配
怎么解决？　　　　　　　　　　　　　　　　　　　　　　　　　　谢谢
　

Answer 1

定义　Dim strPassword$  &错了

Answer 2

已定义　Dim strUserID$, strPassword& '数字
　strUserID = Replace(Trim(txtUserName.Text), "'", "")
　strPassword = Replace(Trim(txtPassword.Text), "'", "")
                                 ↑字符
----------------------------------------------------------把strPassword& 改成 strpassword$