ola estou com problema, quero fazer com que tenha combo em q eu possa selecionar o B.D. pra gravar os dados mas esqueci como q faço pra que ele identifique qual estou chamando e de um aviso tipo "vc esta acessando o BD tal." estou fazendo assim a codificação

 

if cmbBD.? = BD1 THEN

 msgbox "vc esta acessando o BD1."

ELSE

        if cmbBD.? = BD2 THEN

        MSGBOX "VC ESTA ACESSANDO BD2."

        END IF

END IF

 

NÃO SEI O QUE COLOCO NO LUGAR DO ? PARA QUE ELE LEIA MINHA OPÇÃO DE BD PRA GRAVAR NO BD CERTO. ALGUEM PODE ME AJUDAR?

Acho que vc pode fazer assim

 

If cmbBD.Listindex = 0 then

  Msgbox "Banco de dados 1"

Else

  Msgbox "Banco de dados 2"

End If

ELE DEU ERRO NA LINHA "If cmbBD.Listindex = 0 then" TENTEI POR "BD1" NO LUGAR PRA TESTAR MAS MESMO ASSIM DA ERRO 

CONSEGUI FAZER PELO CASE USEI ESSE CODIGO

 

Select Case cmbOPCAO.ListIndex
  Case 0
  MsgBox "Banco de dados 1"
  Case 1
  MsgBox "Banco de dados 2"
  Case 2
  MsgBox "BD 3"
End Select

cmbBD.text