สอบถามเรื่อง การรันรหัสพร้อมตัวอักษรค่ะ มันเออเรอ เอาโค๊ดของพี่ในนี้มาเเปลง แต่ไม่ทราบว่าเป็นอะไรไม่ยอมขึ้น

Dim drTmp As SqlDataReader
            Dim sqlTmp As String
            If txtname.Text = "" Then

                sqlTmp = "SELECT pd_no from Product order by pd_no DESC"

                With da
                    .SelectCommand = New SqlCommand(sqlTmp, sqlcon)
                    .Fill(ds, "pd_no")
                End With
                Dim sql As New SqlCommand
                With sql
                    .CommandType = CommandType.Text
                    .CommandText = sqlTmp
                    .Connection = sqlcon
                    drTmp = .ExecuteReader
                End With

                If drTmp.HasRows Then
                    drTmp.Read()
                    Dim i As Integer = 0
                    Dim strTmp As String
                    strTmp = drTmp(0)
                    i = strTmp.Substring(1)
                    i += 1
                    txtno.Text = "C" & i.ToString("00000")
                Else
                    txtno.Text = "C" & "00001"

                End If