Update records(vb.net 2003)

Public Sub Update_Item()

        oledbcon.Open()
        strSQL = "UPDATE tblitem SET description= '" & txtdes.Text & "', Unit= '" & txtunit.Text & "',  UnitPrice= " & txtUP.Text & "  where Itemno='" & txtino.Text & "'"
        Dim cmd As OleDb.OleDbCommand = oledbcon.CreateCommand
        cmd.CommandText = strSQL

        cmd.ExecuteNonQuery()
        MsgBox("DataItem Update Successfully !", MsgBoxStyle.Information, "Update Item")
        oledbcon.Close()

    End Sub