[Xavier]

γιατι δεν χωράνε περισσότερα στο τηγάνι



που ειναι το λαθος

Public Sub CreateInsertStatement(ByRef TargetControl As Control)
If TargetControl.Name.StartsWith("_") Then
Dim Value As Object = GetValue(TargetControl)
If Not Value Is Nothing Then
If (qrySaveValues.Length > 0) Then
qrySaveValues &= ","
qrySaveFields &= ","
End If
Dim FieldName As String = TargetControl.Name.Substring(1)
qrySaveFields &= FieldName
qrySaveValues &= "@" & FieldName
cmdSave.Parameters.AddWithValue("@" & FieldName, Value)
End If
End If
End Sub