'KolomBestaat(Kolomnaam As String)
'Geeft True of False terug
Public Sub KolomBestaat(Tabelnaam As String, Kolomnaam As String) As Boolean
Dim Koloms As ResultSet=Main.SQL1.ExecQuery("PRAGMA table_info("&Tabelnaam&")")
Do While Koloms.NextRow
If(Koloms.GetString2(1).ToLowerCase=Kolomnaam.ToLowerCase) Then Return True
Loop
Koloms.Close
Return False
End Sub