ama
Me.txtVeri1.Value = baglan.Execute("select [Komisyon] from [PazarYeriAyar] where KategoriID =" & ID & " and [PazarYeriID]=1")
kodunu aşağıdaki kodla değiştirip dener misiniz?Me.txtVeri1.Value = baglan.Execute("select [Komisyon] from [PazarYeriAyar] where KategoriID =" & ID & " and [PazarYeriID]=1").GetString(, , vbTab, vbCrLf)