aşağıdaki fonksiyonu dener misiniz?
şimdilik renkle ilgili bir kod eklemedim
referanslara Activex Data Object  x.x Lirary klenmeli

Function BtnAta()

Dim CtName As String

FrmAdi = "Altform1"

DoCmd.OpenForm FrmAdi, acDesign



Dim Sql As String

Dim ADO_RS As ADODB.Recordset



Set ADO_RS = New ADODB.Recordset

SQL = "select * from [tablo1]"

ADO_RS.Open SQL, CurrentProject.Connection, 3, 1

ADO_RS.MoveFirst



Do While Not ADO_RS.EOF

    CtTop = ADO_RS("Üst") * 567

    CtLeft = ADO_RS("Sol") * 567

    CtlWidth = ADO_RS("En") * 567

    CtlHeight = ADO_RS("Boy") * 567

Set ctlCheck = CreateControl(FrmAdi, acCommandButton, , , "", CtLeft, CtTop, CtlWidth, CtlHeight)

'CreateControl (FormAdı, NesneTürü(metnKutusu-Buton_listeKutusu vsvs), EkleneceğiBölge(başlıkkısmına-anagövde-alttbölge), Parent, ilişkiliAlan, SolaMesafe, ÜsteMesafe, Genişlik, Yükseklik)

'567 TWIPS per cm, 1440 TWIPS per inch

With ctlCheck

 .Name = ADO_RS("Buton adı") ' & X

 .Caption = ADO_RS("Yazı")

 .Visible = False

End With

  ADO_RS.MoveNext

Loop

ADO_RS.Close

Set ADO_RS = Nothing



End Function