Dim
ait As New aitisi 'όπου αίτηση είναι το DataSet
Dim dr As DataRow
ait.Tables("asfalizomenos").Rows.Clear()
dr = ait.Tables("asfalizomenos").NewRow
dr("surname") = Me.txtSurnameAsf.Text
dr("name") = Me.txtNameAsf.Text
dr("sex") = Me.cmbSexAsf.Text
dr("birthday") = Me.dtBirthAsf.Value.ToString
dr("occupation") = Me.cmbProfAsf.Text.ToString
ait.Tables("asfalizomenos").Rows.Add(dr)
ait.AcceptChanges()
Keep programming.....