Mysql 需要帮助：从字符串“RS201504170001”转换为类型“Double”无效

我正在尝试自动编号，但出现以下错误 请帮我修一下

以下是我的代码：

 Sub noresep()
    Call Koneksi()
    Dim nors As String = "Select * from tb_resep where no_resep in (Select max(no_resep) from tb_resep)"
    cmd = New MySqlCommand(nors, db)
    dr = cmd.ExecuteReader
    dr.Read()
    If Not dr.HasRows Then
        txt_noresep.Text = "RS" + Format(Now, "yyyyMMdd") + "0001"
    Else
        If Microsoft.VisualBasic.Mid(CStr(dr.Item("no_resep")), 3, 8) <> Format(Now, "yyyyMMdd") Then
            txt_noresep.Text = "RS" + Format(Now, "yyyyMMdd") + "0001"
        Else
            txt_noresep.Text = CDbl(dr.Item("no_resep")) + 1 'Error in this line
        End If

---

好吧，你不能把字母转换成数字数据类型，从字符串中删除RS部分

txt_noresep.Text = CDbl(dr.Item("no_resep").ToString.TrimStart({"R"c, "S"c})).ToString

---

我收到错误：从字符串RS201504170001到类型“Double”的转换无效。自动编号完全不提供有关代码试图执行的操作的信息。在不知道代码应该达到什么目的的情况下，任何人都无法提出修复建议。@Glenn Maramis很乐意提供帮助，但如果问题解决了，请将答案标记为已接受，欢迎使用StackOverflow，但请阅读规则。