Store Procedure Problem W/smallmoney

Hello,


I am having a problem with a stored procedure and inserting money value into a smallmoney field. I have tried a few different lines but still get errors. This is a sample of the code below and the problem is with the MenuCost and converting a string to smallmoney. I am not having any luck with. Thanks inadvance for any advice.





Gary








Dim MenuName As String = txtName.Text


Dim MenuDescription As String = txtDescription.Text


Dim MenuCatId As String = DropDownList2.DataValueField


Dim MenuTypeId As String = DropDownList1.DataValueField


Dim MenuCost As String = txtCost.Text





Dim ConnectionString As String = fdfadsfdsfasdfsdfsdf


Dim CommandText3 As String = "ins_MenuItem"





Dim myConnection3 As New SqlConnection(ConnectionString)


Dim myCommand3 As New SqlCommand(CommandText3, myConnection3)


Dim workParam As New SqlParameter()





myCommand3.CommandType = CommandType.StoredProcedure





With myCommand3.Parameters


.Add("@MenuName", SqlDbType.Varchar, 150, MenuName)





.Add("@MenuDescription", SqlDbType.Text, MenuDescription)





.Add("@MenuCatId", SqlDbType.Int, MenuCatId)





.Add("@MenuTypeId", SqlDbType.Int, MenuTypeId)





'.Add("@MenuCost", SqlDbType.SmallMoney,4,System.Data.SqlTypes.SqlMoney.Parse(MenuCost))


'.Add("@MenuCost", SqlDbType.SmallMoney,4, Convert(MenuCost AS Varchar))





'.Add("@Amount", SqlDbType.SmallMoney,4,System.Data.SqlTypes.SqlMoney.Parse(Amount))


'.Add("@MenuCost", SqlDbType.SmallMoney,4,System.Data.SqlTypes.SqlMoney.Parse(MenuCost))








End With





myConnection3.Open()