Dim strCom As String = "Select * From tbTree Where ID=" + CInt(strNodeId)