在VBA中从SQL加载数据到组合框

Question

我的形式是一个组合框。我想我的组合框显示来自VBA代码的数据（我不想使用查询的创建者，因为我将来需要在VBA中制作更多东西）。此代码有效但仅适用于我的数据库中的一条记录。我需要一个循环还是什么？

我在这一部分展示了我的代码 - 它正在工作，但并不是我想要工作的兴奋。

Dim rst As Dao.Recordset
Dim strSql As String

strSql = "SELECT KartyProjektow.KP_krotkaNazwaProjektu From KartyProjektow"
Set rst = CurrentDb.OpenRecordset(strSql)

przypisanie = rst!KP_krotkaNazwaProjektu

rst.Close
Set rst = Nothing
Kombi5.RowSource = przypisanie

最终的结果是有了组合框，我可以看到我想看到的名字。

Answer 1

只需分配SQL：

Dim strSql As String

strSql = "SELECT KartyProjektow.KP_krotkaNazwaProjektu From KartyProjektow"
Kombi5.RowSource = strSql