DB con codigo...

[sdnsdlm]

Hola,

Declara las variables, te tiene que funcionar de fijo:


Private Sub Form_Load()
Dim wks As Workspace
Dim base As Database
Dim rec as RecordSet
Dim name
Call CogeNombreEmpresa
ChDrive "c:"
ChDir App.Path
Set wks = CreateWorkspace("", "admin", "", dbUseJet)
Set base = wks.OpendDataBase("Disco2.mdb")
Set rec = base.OpenRecordset("Select [NºDisco]from Disco", dbOpenSnapshot)
While Not rec.EOF
cmbDisco.AddItem rec.Fields("NºDisco")
rec.MoveNext
Wend
rec.Close
End Sub

Una cosa, ¿has hecho copy-paste del código? Si es así tienes por ahí una "d" que te sobra al llamar a openDataBase.

Y otra cosa, ¿para qué usas la variable name? Yo no lo veo, así que podrías quitarla. Y más cosas, has dejado la conexión con la BBDD abierta después del load, así que un base.close o Set base=nothing no estaría de más.

Prueba y ya dices algo.

Saludos.