O que estou fazendo de errado?

[caezar 0]

Private Sub cbEstados_Change()

 

Dim db As Database

Dim rs As Recordset

Dim valor As String

Dim ssql As String

 

valor = cbEstados.Text

ssql = "Select codEstado from TabEstados where UF = " & valor

 

Set db = CurrentDb

Set rs = db.OpenRecordset("tabEstados")

 

rs.Filter = ssql

 

MsgBox rs.Filter

 

 

 

 

End Sub

[Mário Monteiro 179]

apresenta algum erro?

[caezar 0]

Sim:

Na linha rs.Filter = ssql apresenta:

 

Operação não suportada para este tipo de objeto. (Erro 3251)