Error de compilación

Hola que tal, estoy corriendo este código que es para guardar unos registros en una base de datos de excel, pero al momento de hacerlo me dice que no se ah definido el tipo por el usuario

Private Sub CommandButton1_Click()
Dim bd As Database
Dim reg As Recordset ***** AQUÍ ME APARECE SOMBREADO
Set bd = OpenDatabase("C:\USERS\GILDARDO.AURORA\Desktop\NUEVLAB.MDB")
Set reg = bd.openrecordset("select * from análisis", dbOpendynaset)
reg.AddNew
reg("clave_cliente") = TextBox1.Text
reg("fecha") = TextBox2.Text
reg("tipo") = TextBox3.Text
reg("cantidad") = TextBox4.Text
reg("descripción") = TextBox5.Text
reg("observaciones") = TextBox6.Text
reg.Update
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox1.SetFocus
End Sub

NO SE SI SEA DE LA BD O ERROR DEL CÓDIGO, MUCHAS GRACIAS

SALUDOS!!