Ajuda em pesquisa utilizando botões de seleção

Boa tarde, a todos,

Poderiam me ajudar, preciso pesquisar a lista de transportadoras porém por Tipo de modal e Tipo de Carga, montei o seguinte código
porém não funciona:

Private Sub SubFiltrar()

Dim strSQL As String

'Variaveis
       Dim TipoModal, TipoCarga, TipoRegiao, TipoRisco, tpModal, tpCarga, tpRegiao, tpRisco As Boolean
       
       
       TipoModal = Me.TipoModal.Value
       TipoCarga = Me.TipoCarga.Value
       
'
'tipo definição do modal - rodoviario ou aerea
       Select Case TipoModal
           Case Is = 1
                 tpModal = "Seg1_rodoviario like '*1*'"
           Case Is = 2
                 tpModal = "Seg1_Aereo like '*1*'"
       End Select
         
'tipo definição do modal carga Varejo, francionada, fechada

       Select Case TipoCarga
       Case Is = 1
       tpCarga = "Seg2_CargasparaVarejo like '*1*'"
       Case Is = 2
       tpCarga = "Seg2_CargasFrancionadas like '*1*'"
       Case Is = 3
       tpCarga = "Seg2_CargasFechada like '*1*'"
       End Select

'tipo definição do modal Região

         
'Busca pelo tipo de modal

   If Me.TipoModal = 1 Then
   
               strSQL = "Select RazaoSocial,Contato,telefone,Celular,e_mail from tbl_transportadora where " & tpModal & " order by RazaoSocial"                
               Else                
               strSQL = "Select RazaoSocial,Contato,telefone,Celular,e_mail from tbl_transportadora where " & tpModal & " order by RazaoSocial"
   End If
'Busca pelo tipo de carga
   If Me.TipoCarga = 1 Then
                   strSQL = "Select RazaoSocial,Contato,telefone,Celular,e_mail from tbl_transportadora where " & tpCarga & " order by RazaoSocial"
           ElseIf Me.TipoCarga = 2 Then
                   strSQL = "Select RazaoSocial,Contato,telefone,Celular,e_mail from tbl_transportadora where " & tpCarga & " order by RazaoSocial"
       Else
     strSQL = "Select RazaoSocial,Contato,telefone,Celular,e_mail from tbl_transportadora where " & tpCarga & " order by RazaoSocial"
          End If
 
Me.Lbx.RowSource = strSQL

Caros, boa tarde

Inicialmente muito obrigado pela rápida resposta, peço novamente a ajuda, porque eu alterei conforme orientado e funcionou perfeitamente
porem eu complementei com mais um grupo de botões e apresenta erro abaixo, seria possivel me ajudar novamente.

Aparece o Erro de compilação: Método ou membro de dados não encontrado.

Estou anexando o arquivo.