está dando erro nessa linha:
Set Registro = Banco.OpenRecordset("Cliente")
o código fonte dentro do load do form é este:
Dim Banco As Database
Dim Registro As Recordset
ChDir "c:Sistema Pizzaria" 'Coloque aqui o caminho onde se encontra o banco
Set Banco = Workspaces(0).OpenDatabase("Cliente.mdb")
Set Registro = Banco.OpenRecordset("Cliente")
Do While Registro.EOF = False
List1.AddItem Registro!nomepizza
Registro.MoveNext
Loop
fiz todas as referencias certinhas e dá erro de type mismatch.
e eu não lembro o que esse erro significa.