system.StackOverFlowException in System.windows.forms.dll for no valid reason I can see

Question

I am writting a VB.NET front end to an MS ACCess Database and I have a form that displays employee information three of the controls on this form are comboboxes which populate the selection from a table in the DB though the SelectedText property is bound to the employees table so that you can see the list from the lookup table but have the data stpred in the employees table, After I populated these three comboboxes I now get an error as above it occurs if I attempt to load the form from another form in the application (I can only actually get the form if it is the startup form) if I try to navigate records, or if after using one combobox I then cannot use any other control because this exception is then thrown. Any ideas guys. Thanks in advance the code is below and by the way the debugger tells me there is no source code for this exception and only lets me view it in the dissassembly, for that part the only consistant thing is that it is always the same line of assembly code regardless of the trigger.

Dim odbAISConnection As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0.;" & "Data Source=" & Application.StartupPath & "\Data\Employees.edb;User Id=Admin;Password=")

'Dim dsAdmin As New Data.DataSet

Dim dsEmployees As New Data.DataSet

Public Sub LoadDataSets()

Me.odbAISConnection.Open()

Dim odbaEmployees As New OleDb.OleDbDataAdapter

Dim odbaCerts As New OleDb.OleDbDataAdapter

Dim odbaAddresses As New OleDb.OleDbDataAdapter

Dim odbaPhone As New OleDb.OleDbDataAdapter

Dim odbaEC As New OleDb.OleDbDataAdapter

Dim odbaMedctrl As New OleDb.OleDbDataAdapter

Dim odbsEmployees As New OleDb.OleDbCommand("Select Employees.* FROM Employees ORDER BY txtLastName, txtFirstName, txtMiddleInitial")

Dim odbsCerts As New OleDb.OleDbCommand("Select Certs.* FROM Certs")

Dim odbsAddresses As New OleDb.OleDbCommand("Select Addresses.* FROM Addresses")

Dim odbsPhone As New OleDb.OleDbCommand("Select PhoneNumbers.* FROM PhoneNumbers")

Dim odbsEC As New OleDb.OleDbCommand("Select EmergencyContacts.* FROM EmergencyContacts")

Dim odbsMedctrl As New OleDb.OleDbCommand("Select Medctrl.* FROM Medctrl")

Dim odbcEmployees As New OleDb.OleDbCommandBuilder(odbaEmployees)

Dim odbcCerts As New OleDb.OleDbCommandBuilder(odbaCerts)

Dim odbcAddresses As New OleDb.OleDbCommandBuilder(odbaAddresses)

Dim odbcPhone As New OleDb.OleDbCommandBuilder(odbaPhone)

Dim odbcEC As New OleDb.OleDbCommandBuilder(odbaEC)

Dim odbcMedctrl As New OleDb.OleDbCommandBuilder(odbaMedctrl)

'Dim odbaTrucks As New OleDb.OleDbDataAdapter

Dim odbaCertList As New OleDb.OleDbDataAdapter

Dim odbaPhoneTypes As New OleDb.OleDbDataAdapter

Dim odbaStatusList As New OleDb.OleDbDataAdapter

'Dim odbaShiftType As New OleDb.OleDbDataAdapter

Dim odbaTrain As New OleDb.OleDbDataAdapter

'Dim odbaOffense As New OleDb.OleDbDataAdapter

'Dim odbaLevel As New OleDb.OleDbDataAdapter

'Dim odbaLocations As New OleDb.OleDbDataAdapter

'Dim odbaWeeks As New OleDb.OleDbDataAdapter

Dim odbaClass As New OleDb.OleDbDataAdapter

Dim odbaHospitals As New OleDb.OleDbDataAdapter

'Dim odbaDays As New OleDb.OleDbDataAdapter

'Dim odbaDisciplineActions As New OleDb.OleDbDataAdapter

Dim odbaZips As New OleDb.OleDbDataAdapter

'Dim odbsTrucks As New OleDb.OleDbCommand("Select Trucks.* FROM Trucks")

Dim odbsCertList As New OleDb.OleDbCommand("Select CertificationList.* FROM CertificationList")

Dim odbsPhoneTypes As New OleDb.OleDbCommand("Select PhoneTypeList.* FROM PhoneTypeList")

Dim odbsStatusList As New OleDb.OleDbCommand("Select StatusList.* FROM StatusList")

'Dim odbsShiftType As New OleDb.OleDbCommand("Select ShiftTypeList.* FROM ShiftTypeList")

Dim odbsTrain As New OleDb.OleDbCommand("Select TrainingTypeList.* FROM TrainingTypeList")

'Dim odbsOffense As New OleDb.OleDbCommand("Select OffenseList.* FROM OffenseList")

'Dim odbsLevel As New OleDb.OleDbCommand("Select LevelList.* FROM LevelList")

'Dim odbsLocations As New OleDb.OleDbCommand("Select LocationList.* FROM LocationList")

'Dim odbsWeeks As New OleDb.OleDbCommand("Select WeeksList.* FROM WeeksList")

Dim odbsClass As New OleDb.OleDbCommand("Select ClassList.* FROM ClassList")

Dim odbsHospitals As New OleDb.OleDbCommand("Select HospitalList.* FROM HospitalList")

'Dim odbsDays As New OleDb.OleDbCommand("Select DayofWeek.* FROM DayofWeek")

'Dim odbsDisciplineActions As New OleDb.OleDbCommand("Select ActionsList.* FROM ActionsList")

Dim odbsZips As New OleDb.OleDbCommand("Select ZipCodes.* FROM ZipCodes ORDER BY State_Abbreviation")

'Dim odbcTrucks As New OleDb.OleDbCommandBuilder(odbaTrucks)

Dim odbcCertList As New OleDb.OleDbCommandBuilder(odbaCertList)

Dim odbcPhoneTypes As New OleDb.OleDbCommandBuilder(odbaPhoneTypes)

Dim odbcStatusList As New OleDb.OleDbCommandBuilder(odbaStatusList)

'Dim odbcShiftType As New OleDb.OleDbCommandBuilder(odbaShiftType)

Dim odbcTrain As New OleDb.OleDbCommandBuilder(odbaTrain)

'Dim odbcOffense As New OleDb.OleDbCommandBuilder(odbaOffense)

'Dim odbcLevel As New OleDb.OleDbCommandBuilder(odbaLevel)

'Dim odbcLocations As New OleDb.OleDbCommandBuilder(odbaLocations)

'Dim odbcWeeks As New OleDb.OleDbCommandBuilder(odbaWeeks)

'Dim odbcClass As New OleDb.OleDbCommandBuilder(odbaClass)

Dim odbcHospitals As New OleDb.OleDbCommandBuilder(odbaHospitals)

'Dim odbcDays As New OleDb.OleDbCommandBuilder(odbaDays)

'Dim odbcDisciplineActions As New OleDb.OleDbCommandBuilder(odbaDisciplineActions)

Dim odbcZips As New OleDb.OleDbCommandBuilder(odbaZips)

odbaEmployees.MissingSchemaAction = MissingSchemaAction.AddWithKey

odbaEmployees.SelectCommand = odbsEmployees

odbaEmployees.SelectCommand.Connection = odbAISConnection

odbaCerts.MissingSchemaAction = MissingSchemaAction.AddWithKey

odbaCerts.SelectCommand = odbsCerts

odbaCerts.SelectCommand.Connection = odbAISConnection

odbaAddresses.MissingSchemaAction = MissingSchemaAction.AddWithKey

odbaAddresses.SelectCommand = odbsAddresses

odbaAddresses.SelectCommand.Connection = odbAISConnection

odbaPhone.MissingSchemaAction = MissingSchemaAction.AddWithKey

odbaPhone.SelectCommand = odbsPhone

odbaPhone.SelectCommand.Connection = odbAISConnection

odbaEC.MissingSchemaAction = MissingSchemaAction.AddWithKey

odbaEC.SelectCommand = odbsEC

odbaEC.SelectCommand.Connection = odbAISConnection

odbaMedctrl.MissingSchemaAction = MissingSchemaAction.AddWithKey

odbaMedctrl.SelectCommand = odbsEC

odbaMedctrl.SelectCommand.Connection = odbAISConnection

'odbaTrucks.MissingSchemaAction = MissingSchemaAction.AddWithKey

'odbaTrucks.SelectCommand = odbsTrucks

'odbaTrucks.SelectCommand.Connection = odbAISConnection

odbaCertList.MissingSchemaAction = MissingSchemaAction.AddWithKey

odbaCertList.SelectCommand = odbsCertList

odbaCertList.SelectCommand.Connection = odbAISConnection

odbaPhoneTypes.MissingSchemaAction = MissingSchemaAction.AddWithKey

odbaPhoneTypes.SelectCommand = odbsPhoneTypes

odbaPhoneTypes.SelectCommand.Connection = odbAISConnection

odbaStatusList.MissingSchemaAction = MissingSchemaAction.AddWithKey

odbaStatusList.SelectCommand = odbsStatusList

odbaStatusList.SelectCommand.Connection = odbAISConnection

'odbaShiftType.MissingSchemaAction = MissingSchemaAction.AddWithKey

'odbaShiftType.SelectCommand = odbsShiftType

'odbaShiftType.SelectCommand.Connection = odbAISConnection

odbaTrain.MissingSchemaAction = MissingSchemaAction.AddWithKey

odbaTrain.SelectCommand = odbsTrain

odbaTrain.SelectCommand.Connection = odbAISConnection

'odbaOffense.MissingSchemaAction = MissingSchemaAction.AddWithKey

'odbaOffense.SelectCommand = odbsOffense

'odbaOffense.SelectCommand.Connection = odbAISConnection

'odbaLevel.MissingSchemaAction = MissingSchemaAction.AddWithKey

'odbaLevel.SelectCommand = odbsLevel

'odbaLevel.SelectCommand.Connection = odbAISConnection

'odbaLocations.MissingSchemaAction = MissingSchemaAction.AddWithKey

'odbaLocations.SelectCommand = odbsLocations

'odbaLocations.SelectCommand.Connection = odbAISConnection

'odbaWeeks.MissingSchemaAction = MissingSchemaAction.AddWithKey

'odbaWeeks.SelectCommand = odbsWeeks

'odbaWeeks.SelectCommand.Connection = odbAISConnection

odbaClass.MissingSchemaAction = MissingSchemaAction.AddWithKey

odbaClass.SelectCommand = odbsClass

odbaClass.SelectCommand.Connection = odbAISConnection

odbaHospitals.MissingSchemaAction = MissingSchemaAction.AddWithKey

odbaHospitals.SelectCommand = odbsHospitals

odbaHospitals.SelectCommand.Connection = odbAISConnection

'odbaDays.MissingSchemaAction = MissingSchemaAction.AddWithKey

'odbaDays.SelectCommand = odbsDays

'odbaDays.SelectCommand.Connection = odbAISConnection

'odbaDisciplineActions.MissingSchemaAction = MissingSchemaAction.AddWithKey

'odbaDisciplineActions.SelectCommand = odbsDisciplineActions

'odbaDisciplineActions.SelectCommand.Connection = odbAISConnection

odbaZips.MissingSchemaAction = MissingSchemaAction.AddWithKey

odbaZips.SelectCommand = odbsZips

odbaZips.SelectCommand.Connection = odbAISConnection

Try

dsEmployees.ReadXmlSchema(Application.StartupPath & "\Data\EmployeeData.xsd")

Catch ex As Exception

MessageBox.Show("File Missing Try again", "Missing", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.DefaultDesktopOnly)

End Try

Try

odbaEmployees.Fill(dsEmployees, "Employees")

odbaCerts.Fill(dsEmployees, "Certs")

odbaAddresses.Fill(dsEmployees, "Addresses")

odbaPhone.Fill(dsEmployees, "PhoneNumbers")

odbaEC.Fill(dsEmployees, "EmergencyContacts")

odbaMedctrl.Fill(dsEmployees, "Medctrl")

'odbaTrucks.Fill(dsAdmin, "Trucks")

odbaCertList.Fill(dsEmployees, "CertificationList")

odbaPhoneTypes.Fill(dsEmployees, "PhoneTypeList")

odbaStatusList.Fill(dsEmployees, "StatusList")

'odbaShiftType.Fill(dsAdmin, "ShiftTypeList")

odbaTrain.Fill(dsEmployees, "TrainingTypeList")

'odbaOffense.Fill(dsAdmin, "OffenseList")

'odbaLevel.Fill(dsAdmin, "LevelList")

'odbaLocations.Fill(dsAdmin, "LocationList")

'odbaWeeks.Fill(dsAdmin, "WeeksList")

odbaClass.Fill(dsEmployees, "ClassList")

odbaHospitals.Fill(dsEmployees, "HospitalList")

'odbaDays.Fill(dsAdmin, "DayofWeek")

'odbaDisciplineActions.Fill(dsAdmin, "ActionsList")

odbaZips.Fill(dsEmployees, "ZipCodes")

Catch ex As Exception

MessageBox.Show(ex.ToString, "Sorry", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.DefaultDesktopOnly)

End Try

Me.odbAISConnection.Close()

Me.odbAISConnection.Open()

''odbaTrucks.MissingSchemaAction = MissingSchemaAction.AddWithKey

''odbaTrucks.SelectCommand = odbsTrucks

''odbaTrucks.SelectCommand.Connection = odbAISConnection

'odbaCertList.MissingSchemaAction = MissingSchemaAction.AddWithKey

'odbaCertList.SelectCommand = odbsCertList

'odbaCertList.SelectCommand.Connection = odbAISConnection

'odbaPhoneTypes.MissingSchemaAction = MissingSchemaAction.AddWithKey

'odbaPhoneTypes.SelectCommand = odbsPhoneTypes

'odbaPhoneTypes.SelectCommand.Connection = odbAISConnection

'odbaStatusList.MissingSchemaAction = MissingSchemaAction.AddWithKey

'odbaStatusList.SelectCommand = odbsStatusList

'odbaStatusList.SelectCommand.Connection = odbAISConnection

''odbaShiftType.MissingSchemaAction = MissingSchemaAction.AddWithKey

''odbaShiftType.SelectCommand = odbsShiftType

''odbaShiftType.SelectCommand.Connection = odbAISConnection

'odbaTrain.MissingSchemaAction = MissingSchemaAction.AddWithKey

'odbaTrain.SelectCommand = odbsTrain

'odbaTrain.SelectCommand.Connection = odbAISConnection

''odbaOffense.MissingSchemaAction = MissingSchemaAction.AddWithKey

''odbaOffense.SelectCommand = odbsOffense

''odbaOffense.SelectCommand.Connection = odbAISConnection

''odbaLevel.MissingSchemaAction = MissingSchemaAction.AddWithKey

''odbaLevel.SelectCommand = odbsLevel

''odbaLevel.SelectCommand.Connection = odbAISConnection

''odbaLocations.MissingSchemaAction = MissingSchemaAction.AddWithKey

''odbaLocations.SelectCommand = odbsLocations

''odbaLocations.SelectCommand.Connection = odbAISConnection

''odbaWeeks.MissingSchemaAction = MissingSchemaAction.AddWithKey

''odbaWeeks.SelectCommand = odbsWeeks

''odbaWeeks.SelectCommand.Connection = odbAISConnection

'odbaClass.MissingSchemaAction = MissingSchemaAction.AddWithKey

'odbaClass.SelectCommand = odbsClass

'odbaClass.SelectCommand.Connection = odbAISConnection

'odbaHospitals.MissingSchemaAction = MissingSchemaAction.AddWithKey

'odbaHospitals.SelectCommand = odbsHospitals

'odbaHospitals.SelectCommand.Connection = odbAISConnection

''odbaDays.MissingSchemaAction = MissingSchemaAction.AddWithKey

''odbaDays.SelectCommand = odbsDays

''odbaDays.SelectCommand.Connection = odbAISConnection

''odbaDisciplineActions.MissingSchemaAction = MissingSchemaAction.AddWithKey

''odbaDisciplineActions.SelectCommand = odbsDisciplineActions

''odbaDisciplineActions.SelectCommand.Connection = odbAISConnection

'odbaZips.MissingSchemaAction = MissingSchemaAction.AddWithKey

'odbaZips.SelectCommand = odbsZips

'odbaZips.SelectCommand.Connection = odbAISConnection

'Try

' dsAdmin.ReadXmlSchema(Application.StartupPath & "\Data\EmpLU.xsd")

'Catch ex As Exception

' MessageBox.Show("File Missing Try again", "Missing", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.DefaultDesktopOnly)

'End Try

'Try

' 'odbaTrucks.Fill(dsAdmin, "Trucks")

' odbaCertList.Fill(dsAdmin, "CertificationList")

' odbaPhoneTypes.Fill(dsAdmin, "PhoneTypeList")

' odbaStatusList.Fill(dsAdmin, "StatusList")

' 'odbaShiftType.Fill(dsAdmin, "ShiftTypeList")

' odbaTrain.Fill(dsAdmin, "TrainingTypeList")

' 'odbaOffense.Fill(dsAdmin, "OffenseList")

' 'odbaLevel.Fill(dsAdmin, "LevelList")

' 'odbaLocations.Fill(dsAdmin, "LocationList")

' 'odbaWeeks.Fill(dsAdmin, "WeeksList")

' odbaClass.Fill(dsAdmin, "ClassList")

' odbaHospitals.Fill(dsAdmin, "HospitalList")

' 'odbaDays.Fill(dsAdmin, "DayofWeek")

' 'odbaDisciplineActions.Fill(dsAdmin, "ActionsList")

' odbaZips.Fill(dsAdmin, "ZipCodes")

'Catch ex As Exception

' MessageBox.Show(ex.ToString, "Sorry", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.DefaultDesktopOnly)

'End Try

'Me.odbAISConnection.Close()

End Sub

Public Sub LoadCombo()

Me.cmbSelectEmp.Items.Clear()

Dim i As Int32 = 0

Dim Name As String

For i = 0 To Me.dsEmployees.Tables("Employees").Rows.Count - 1

Name = Me.dsEmployees.Tables("Employees").Rows(i).Item(0) & " -- " & Me.dsEmployees.Tables("Employees").Rows(i).Item(1) & ", " & Me.dsEmployees.Tables("Employees").Rows(i).Item(2) & " " & Me.dsEmployees.Tables("Employees").Rows(i).Item(3)

Me.cmbSelectEmp.Items.Add(Name)

Next

For i = 0 To Me.dsEmployees.Tables("ZipCodes").Rows.Count - 1

If Name = Me.dsEmployees.Tables("ZipCodes").Rows(i).Item(2) Then

Else

Name = Me.dsEmployees.Tables("ZipCodes").Rows(i).Item(2)

Me.cmbtxtST.Items.Add(Name)

End If

Next

i = 0

For i = 0 To Me.dsEmployees.Tables("ClassList").Rows.Count - 1

Name = Me.dsEmployees.Tables("ClassList").Rows(i).Item(1)

Me.cmbstrClass.Items.Add(Name)

Next

i = 0

For i = 0 To Me.dsEmployees.Tables("StatusList").Rows.Count - 1

Name = Me.dsEmployees.Tables("StatusList").Rows(i).Item(0)

Me.cmbstrStatus.Items.Add(Name)

Next

Me.cmbSelectEmp.SelectedIndex = 0

End Sub

 

Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click

Try

'Clear out the current edits

Me.BindingContext(dsEmployees, "Employees").EndCurrentEdit()

Me.BindingContext(dsEmployees, "Employees").AddNew()

Catch eEndEdit As System.Exception

System.Windows.Forms.MessageBox.Show(eEndEdit.Message)

End Try

 

End Sub

Private Sub btnNavFirst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNavFirst.Click

Me.BindingContext(dsEmployees, "Employees").Position = 0

 

End Sub

Private Sub btnLast_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLast.Click

Me.BindingContext(dsEmployees, "Employees").Position = (Me.dsEmployees.Tables("Employees").Rows.Count - 1)

 

End Sub

Private Sub btnNavPrev_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNavPrev.Click

Me.BindingContext(dsEmployees, "Employees").Position = (Me.BindingContext(dsEmployees, "Employees").Position - 1)

 

End Sub

Private Sub btnNavNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNavNext.Click

Try

Me.BindingContext(dsEmployees, "Employees").Position = (Me.BindingContext(dsEmployees, "Employees").Position + 1)

Catch ex As Exception

MessageBox.Show(ex.ToString)

End Try

 

 

 

End Sub

 

Private Sub frmEmployeeAdmin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

'Me.editdtAdjDOH.Text.Format

 

LoadDataSets()

LoadCombo()

Me.editEmpID.DataBindings.Add("Text", dsEmployees, "Employees.EmpID")

Me.edittxtLastName.DataBindings.Add("Text", dsEmployees, "Employees.txtLastName")

Me.edittxtFirstName.DataBindings.Add("Text", dsEmployees, "Employees.txtFirstName")

Me.edittxtMiddleInitial.DataBindings.Add("Text", dsEmployees, "Employees.txtMiddleInitial")

Me.editdtDOB.DataBindings.Add("Text", dsEmployees, "Employees.dtDOB")

Me.edittxtSS.DataBindings.Add("Text", dsEmployees, "Employees.txtSS")

Me.editdtDOH.DataBindings.Add("Text", dsEmployees, "Employees.dtDOH")

Me.cmbstrClass.DataBindings.Add("SelectedText", dsEmployees, "Employees.strClassification")

'Me.editstrClassification.DataBindings.Add("Text", dsEmployees, "Employees.strClassification")

Me.cmbstrStatus.DataBindings.Add("SelectedText", dsEmployees, "Employees.strStatus")

'Me.editstrStatus.DataBindings.Add("Text", dsEmployees, "Employees.strStatus")

Me.editdtAdjDOH.DataBindings.Add("Text", dsEmployees, "Employees.dtAdjDOH")

Me.editdtPDE.DataBindings.Add("Text", dsEmployees, "Employees.dtPDE")

Me.edittxtDLN.DataBindings.Add("Text", dsEmployees, "Employees.txtDLN")

Me.cmbtxtST.DataBindings.Add("SelectedText", dsEmployees, "Employees.txtDLST")

'Me.edittxtDLST.DataBindings.Add("Text", dsEmployees, "Employees.txtDLST")

Me.editdtDLExp.DataBindings.Add("Text", dsEmployees, "Employees.dtDLExp")

Me.edittxtDLRes.DataBindings.Add("Text", dsEmployees, "Employees.txtDLRes")

Me.edittxtDLEnd.DataBindings.Add("Text", dsEmployees, "Employees.txtDLEnd")

Me.editbNU.DataBindings.Add("Checked", dsEmployees, "Employees.bNU")

Me.editbHBVDec.DataBindings.Add("Checked", dsEmployees, "Employees.bHBVDec")

Me.editdtHBVDecD.DataBindings.Add("Text", dsEmployees, "Employees.dtHBVDecD")

Me.editdtHBV.DataBindings.Add("Text", dsEmployees, "Employees.dtHBV")

Me.editdtHBV1.DataBindings.Add("Text", dsEmployees, "Employees.dtHBV1")

Me.editdtHBV2.DataBindings.Add("Text", dsEmployees, "Employees.dtHBV2")

Me.editdtHBVT.DataBindings.Add("Text", dsEmployees, "Employees.dtHBVT")

Me.editdtPPD.DataBindings.Add("Text", dsEmployees, "Employees.dtPPD")

Me.editdtOSHA.DataBindings.Add("Text", dsEmployees, "Employees.dtOSHA")

Me.editdtHaz.DataBindings.Add("Text", dsEmployees, "Employees.dtHaz")

Me.editComments.DataBindings.Add("Text", dsEmployees, "Employees.Comments")

'Me.dgCerts.DataSource = dsEmployees

'Me.dgCerts.DataMember = "Employees.EmployeesCerts"

'Me.dgAddress.DataSource = dsEmployees.Tables("Addresses").ParentRelations("EmployeesAddresses")

'Me.dgAddress.DataM = "Employees.EmployeesAddresses"

'Me.dgPhones.DataSource = dsEmployees.Tables("Employees")

'Me.dgPhones.DataMember = "EmployeesPhoneNumbers"

'Me.dgEC.DataSource = dsEmployees

'Me.dgEC.DataMember = "Employees.EmployeesEmergencyContacts"

'Me.dgMedctrl.DataSource = dsEmployees

'Me.dgMedctrl.DataMember = "Employees.EmployeesMedctrl"