เกิดปัญหาอีกแล้วครับท่าน conversion from string "___" to type 'boolean' is not valid ในการ add

str = "INSERT INTO titleTH (ID,Title) VALUES('" & id.Text & "' , '" & titlethh.Text & "')"

        Dim myCommand As SqlCommand = New SqlCommand(str, connetionString)

        Try
            If id.Text = Nothing Then
                MsgBox("You Must Enter The Username!", MsgBoxStyle.Exclamation, "Error!")
                MsgBox("ท่านใส่ข้อมูลที่ชื่อว่า user ไม่ครบถ้วน") : Exit Sub
                'id.Clear()


            End If
            If titlethh.Text Then
                MsgBox("You Must Enter The Passworld !", MsgBoxStyle.Exclamation, "Error!")
                MsgBox("ท่านใส่ข้อมูล password ไม่ครบถ้วน") : Exit Sub

            End If

            connetionString.Open()



            Dim result = myCommand.ExecuteScalar()
            If result Is Nothing Then

                MessageBox.Show("คุณต้องการเพิ่มรายชื่อใหม่ใช่หรือไม่?", "ยืนยัน", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
                MessageBox.Show("เพิ่มรายชื่อพนักงานแล้ว", "ผลการทำงาน", MessageBoxButtons.OK, MessageBoxIcon.Information)
                'id.Clear()

            ElseIf result IsNot Nothing Then

                MessageBox.Show("คุณ'ได้เพิ่มข้อมูล ซ้ำกันแล้ว ?", "ยืนยัน", MessageBoxButtons.YesNo, MessageBoxIcon.Question)

            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        Finally
            If (connetionString.State = ConnectionState.Open) Then
                connetionString.Close()
            End If
        End Try
    End Sub