error de tipo double

[rikimm]

tengo el siguiente codigo

Código Vb2008:

Dim tipo As String
        Dim nom, miLetra As String
        Dim num As Integer
        Dim cont As Integer
 
        nom = TextBox7.Text(0)
        
 
        If CheckBox11.Checked = True Then
            'CheckBox11.Tag = "P"
            tipo = "P"
        ElseIf CheckBox12.Checked = True Then
            'CheckBox11.Tag = "G"
            tipo = "G"
        ElseIf CheckBox13.Checked = True Then
            'CheckBox11.Tag = "A"
            tipo = "A"
        Else
            tipo = TextBox11.Text(0)
        End If
 
        Dim cnn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\riki\Documents\Visual Studio 2008\Projects\SistemaDP\SistemaDP\bin\Debug\doggyp.mdb")
        Dim da As New OleDbDataAdapter("SELECT max(id) FROM Entradas ", cnn)
        Dim ds As New OleDbCommand
        cnn.Open()
        ds.Connection = cnn
        ds.CommandType = CommandType.Text
 
        ds.CommandText = ("SELECT max(id) FROM Entradas ")
        num = Convert.ToInt32(ds.ExecuteScalar())
        cont = Convert.ToInt32(num) + 1
 
 
        iddp = nom.ToUpper + cont + tipo
        MessageBox.Show(iddp)
 

en la parte del iddp me manda el erro que lo que tiene nom es de tipo double porque me manda ese erro no logro entenderlo