Not: uzun metin alanları ilişkilendirilemiyor diye ilgili alanlar cstr ile çevirdim
cstr([PERSONEL].[ID_1])=cstr([TARİHLER].[ID_2])
sorgu = "Select [ID_1],format(Max([TARİHLER].[TARİH]),'mm.dd.yyyy') as TARİHİM from [PERSONEL]" & _
"INNER JOIN [TARİHLER] ON cstr([PERSONEL].[ID_1])=cstr([TARİHLER].[ID_2]) GROUP BY [PERSONEL].[ID_1] HAVING [PERSONEL].[ID_1]= '" & TextBox1.Text & "'"