How to use a SQL SELECT statement with Access VBA

Question

I have a combobox whose value I want to use with a SQL WHERE clause. How do you run a SELECT statement inside VBA based on the combobox value?

Accepted Answer

If you wish to use the bound column value, you can simply refer to the combo:

```
sSQL = "SELECT * FROM MyTable WHERE ID = " & Me.MyCombo
```

You can also refer to the column property:

```
sSQL = "SELECT * FROM MyTable WHERE AText = '" & Me.MyCombo.Column(1) & "'"

Dim rs As DAO.Recordset     
Set rs = CurrentDB.OpenRecordset(sSQL)

strText = rs!AText
strText = rs.Fields(1)
```

In a textbox:

```
= DlookUp("AText","MyTable","ID=" & MyCombo)
```

*edited

Solution