the following seems to work(at least on my system):
Code:Private Sub Command1_Click() Dim Conn As New ADODB.Connection Conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\IkkeEnGij\Documents\TheDatabase.accdb" Conn.Open Conn.Execute "UPDATE Table1 SET Table1.TheName = Replace(Table1.TheName,chr(39),"""")" Conn.Close End Sub




Reply With Quote