I urgently need help !!!!!

I have a small program, consisting of 5 different forms.
each form has variables (declared with Public Shared ) var1, var2,var3,var4 as String and c1,c2 as Boolean and so on.
at the last form, I am populating all the variable together ( like FrmMain.var1 = Fvar1, Frm2.var2 = Fvar2 …….)
now I have an access 2016 Database with the fields specified on the last form ( Fvar1, Fvar2 ………)

Public Class FrmAdd

Public Shared xx As Integer
Public Shared custName, Custnum, CGender, pkind, pmodel, xp As String
Public Shared byear, curyear, cusage, phauser As Integer
Public Shared lb250, lb500, lb1000, lb2000, lb4000, la250, la500, la1000, la2000, la4000, la8000 As Integer
Public Shared hlsince As Decimal
Public Shared calcsinceold, calcround As Decimal
Public Shared probear, meduse, tint, tinl, oprobhis, cneed, remark1 As String
Public Shared c1, c2, c3, c4, c5, c6, c7, c8, c9, c10, c11, c12, c13, c14, c15, c16, c17, c18 As Integer
Public Shared lp1, lp2, lp3, lp4, rp1, rp2, rp3, rp4, gp1, gp2, gp3 As Integer
Public Shared crema As String
Public Shared e1, e2, e3, e4 As Integer
Public Shared rb250, rb500, rb1000, rb2000, rb4000, ra250, ra500, ra1000, ra2000, ra4000, ra8000 As Integer
Public Shared newregionrow As audiologyDataSet.audiodatRow

Private Sub FrmAdd_Load(sender As Object, e As EventArgs) Handles MyBase.Load
' here i load the values to be inserted into the database from all the form
custName = FrmCust.custName
Custnum = FrmCust.CustnumTextBox.Text
byear = FrmCust.byear
CGender = FrmCust.cgender
phauser = FrmCust.phauser
pkind = FrmCust.pkind
pmodel = FrmCust.pmodel
lb250 = FrmCust.lb250
lb500 = FrmCust.lb500
lb1000 = FrmCust.lb1000
lb2000 = FrmCust.lb2000
lb4000 = FrmCust.lb4000
la250 = FrmCust.la250
la500 = FrmCust.la500
la1000 = FrmCust.la1000
la2000 = FrmCust.la2000
la4000 = FrmCust.la4000
la8000 = FrmCust.la8000
rb250 = FrmCust.rb250
rb500 = FrmCust.rb500
rb1000 = FrmCust.rb1000
rb2000 = FrmCust.rb2000
rb4000 = FrmCust.rb4000
ra250 = FrmCust.ra250
ra500 = FrmCust.ra500
ra1000 = FrmCust.ra1000
ra2000 = FrmCust.ra2000
ra4000 = FrmCust.ra4000
ra8000 = FrmCust.ra8000
hlsince = Frmhistory.hlsince
probear = Frmhistory.probear
c1 = Frmhistory.c1
c2 = Frmhistory.c2
c3 = Frmhistory.c3
c4 = Frmhistory.c4
c5 = Frmhistory.c5
c6 = Frmhistory.c6
c7 = Frmhistory.c7
c8 = Frmhistory.c8
c9 = Frmhistory.c9
c10 = Frmhistory.c10
c11 = Frmhistory.c11
c12 = Frmhistory.c12
c13 = Frmhistory.c13
c14 = Frmhistory.c14
c15 = Frmhistory.c15
c16 = Frmhistory.c16
c17 = Frmhistory.c17
c18 = Frmhistory.c18
meduse = Frmhistory.meduse
tint = Frmhistory.tint
tinl = Frmhistory.tinl
oprobhis = Frmhistory.oprobhis
lp1 = FrmClinic.lp1
lp2 = FrmClinic.lp2
lp3 = FrmClinic.lp3
lp4 = FrmClinic.lp4
rp4 = FrmClinic.rp4
rp3 = FrmClinic.rp3
rp2 = FrmClinic.rp2
rp1 = FrmClinic.rp1
gp1 = FrmClinic.gp1
gp2 = FrmClinic.gp2
gp3 = FrmClinic.gp3
crema = FrmClinic.crema
e1 = Frmexpect.e1
e2 = Frmexpect.e2
e3 = Frmexpect.e3
e4 = Frmexpect.e4
cneed = Frmsolution.cneed
remark1 = " "

' here i go to the last position in the datbase and add 1 to get the next availabel record number

AllCust.AudiodatBindingSource.MoveLast()
AllCust.AudiodatBindingSource.Position = xp
xx = Val(xp) + 1

' here i add the records

newregionrow = AllCust.AudiologyDataSet.audiodat.NewaudiodatRow()
newregionrow.ID = xx
AllCust.AudiologyDataSet.audiodat.Rows.Add(newregionrow)
AllCust.AudiodatTableAdapter.Update(AllCust.AudiologyDataSet.audiodat)

' confirm data is saved

MsgBox("Data Saved")


Me.Close()
Frmprint.Show()




End Sub


End Class

it is creating a new record, but all the fields are empty.
also, it is only in memory, when I exit and check the database, nothing was added.

My TableAdapter is on a different form called AllCust.