Renaming a field in access table

[orchidsystems]

i am renaming the field in access table but my module is sometime working sometime not working

[SioSio]

It is how to changing the field name of mdb using vb.net and OleDb.

    Dim FileName As String = "your database path and filename"
    Dim TableName As String     = "your table name"
 
    Using cn As New System.Data.OleDb.OleDbConnection
    Using cm As New System.Data.OleDb.OleDbCommand
    Using da As New System.Data.OleDb.OleDbDataAdapter
    'change your Connection String    
    cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & FileName & ";"
    cm.Connection = cn
    'change your table modify SQL
    cm.CommandText = "ALTER TABLE tbl_name RENAME COLUMN old_col_name TO new_col_name ... ;"
    da.SelectCommand = cm
    End Using
    End Using
    End Using