Formulário folha de dados desvinculado

Bom Dia!

Estou tentado fazer um formulario folha de dados desvinculado para assim que trazer as informações fechar o banco mais com o codigo abaixo só retorna para a caixa de texto o ultimo valor da tabela, quero que ele retorne todos os valores da tabela no formulario.


Private Sub Form_Open(Cancel As Integer)

Dim Comando As String
Dim ws As Workspace
Dim db As Database

Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase("D:\Access VBA\Banco Biblioteca_be.accdb")

Dim rs As Recordset

Set rs = db.OpenRecordset("tabcadlivro")

Do While Not rs.EOF

Me.Codigo = rs("codigo")

rs.MoveNext

Loop

rs.Close
Set rs = Nothing

End Sub

Boa tarde,

Sugiro utilizar a busca do fórum, já existe um tópico resolvido sobre o assunto! Segue:

https://www.maximoaccess.com/t2423-resolvidopopular-form-desacoplado

Abraço.