boa terde tem como eu fazer uma consulta de cep, + o meu banco de dado ele está assim cep (XXXXX-XXX), so que eu quero so pegar os 5 1° digito do cep (XXXXX)

 

     If Rs_Bai.State = 1 Then Rs_Bai.Close
        Rs_Bai.Open "SELECT * FROM taxas where bd_tax_001 LIKE '" & Rs_Cli.Fields("bd_cep") & "'", Banco, adOpenDynamic, adLockOptimistic
            Combo5.Clear
            Text4.Text = ""
            Combo5.Text = Rs_Bai.Fields("bd_tax_bai")
            Text4.Text = Rs_Bai.Fields("bd_tax_val")
        Rs_Bai.Close

Tente assim :

If Rs_Bai.State = 1 Then Rs_Bai.Close
        Rs_Bai.Open "SELECT * FROM taxas where left([bd_tax_001],5) LIKE '" & left(Rs_Cli.Fields("bd_cep"), 5) & "'", Banco, adOpenDynamic, adLockOptimistic
            Combo5.Clear
            Text4.Text = ""
            Combo5.Text = Rs_Bai.Fields("bd_tax_bai")
            Text4.Text = Rs_Bai.Fields("bd_tax_val")
        Rs_Bai.Close

 

na primeira, OBRIGADU