tengo un problema tengo dos combobox que estan enlazado a una base de datos este es el codigo

Private Sub Cb2_Change()
Data2.DatabaseName = App.Path & "\sisconges97.mdb" ' nombre de la base de datos
Data2.RecordSource = "SELECT * FROM direcciones WHERE trim(direcciones.direccion) >= '" + Trim(Cb1) + "'" ' puedes cambiar el criterio de busqueda a tu necesidad
Data2.Refresh
With Cb2
.Clear
Data2.Refresh
While Not Data2.Recordset.EOF
.AddItem Data2.Recordset!direccion ' nombre del campo de la tabla que tiene en la base de datos
Data2.Recordset.MoveNext
Wend
End With
End Sub

Private Sub Form_Load()
Data1.DatabaseName = App.Path & "\sisconges97.mdb" ' nombre de la base de datos
Data1.RecordSource = "direcciones" ' nombre de la tabla donde tienes los datos requeridos
Data1.Refresh
'se llena el 1er combo con los datos de la tabla
With Cb1
.Clear
Data1.Refresh
While Not Data1.Recordset.EOF
.AddItem Data1.Recordset!cod ' nombre del campo de la tabla que tiene en la base de datos
Data1.Recordset.MoveNext
Wend
End With
End Sub

pero cuando trato de iniciar la aplicacion me dice object doesn't support this property or method

como se podra notar tengo dos data tambien pero cuando quito el codigo del combo2 es decir cb2 el programa rula bien y cuando pongo el codigo del cb2 no anda otra cosa practicamente yo quiero que cuando desplegue la lista del cb1 y elija una opcion esa me salga en el cb2

les agradeceria su ayuda