Public
FunctionRequeteNonQuery(ByVal Fichier As
String, ByVal SQLString As
String) As Boolean
DimMaconn As System.Data.OleDb.OleDbConnection
Open()
DimComd As New OleDb.OleDbCommand(SQLString)
Close()
MsgBox(ex.Message)
Close()
EndTry
End
FunctionExemple