Error al llamar datos de una tabla

Tengo el Siguiente codigo:
Private Sub cboObra_Click()
cboAnticipoDirigidoA.Text = ""
cboLegalizacionNo.Text = ""
Set Con = New ADODB.Connection
With Con
    .ConnectionString = "provider = microsoft.ace.oledb.12.0;data source=D:\PROYECTO TYT\TYT.accdb"
    .Open
End With
Set Rec4 = New ADODB.Recordset
With Rec4
    Set .ActiveConnection = Con
    .CursorType = adOpenDynamic
    .CursorLocation = adUseClient
    .LockType = adLockOptimistic
    .Source = "select * from LEGALIZACIONES where OBRA ='" & cboObra & "'"
    .Open
End With
Set DataGrid1.DataSource = Rec4
Display2
End Sub
al seleccionar un dato, del cual on hay registro en otra tabla me aparece un error en esta linea:
Private Sub Display2()
Set Con = New ADODB.Connection
With Con
    .ConnectionString = "provider = microsoft.ace.oledb.12.0;data source=D:\PROYECTO TYT\TYT.accdb"
    .Open
End With
Set Rec2 = New ADODB.Recordset
With Rec2
    Set .ActiveConnection = Con
    .CursorType = adOpenDynamic
    .CursorLocation = adUseClient
    .LockType = adLockOptimistic
    .Source = "select * from RECIBOS where LEGALIZACION =" & Me.DataGrid1.Columns(1)
    .Open
End With
Set DataGrid2.DataSource = Rec2
DataGrid2.Visible = True
End Sub
el error dice: Error '6160' en tiempo de ejecucion: Error de acceso de datos
como puedo solucionar esto?