'-- Added to get deleted jobsites

Dim LoConn As New OleDb.OleDbConnection

Dim loDataAdapter As New OleDb.OleDbDataAdapter

Dim LoDataTable As New Data.DataTable

LoConn.ConnectionString = MicroFour.StrataFrame.Data.DataLayer.DataSources("Fox").ConnectionString

LoConn.Open()

Dim loCommand As New OleDb.OleDbCommand("SET DELETED OFF", LoConn)

loCommand.ExecuteNonQuery()

loDataAdapter = New OleDb.OleDbDataAdapter("SELECT jobsites.* FROM customer INNER JOIN jobsites ON customer.cu_id = jobsites.cu_id " & _

"WHERE LEN(ALLTRIM(jobsites.cu_id)) > 0", LoConn)

loDataAdapter.Fill(LoDataTable)

Me.CopyDataFrom(LoDataTable, MicroFour.StrataFrame.Business.BusinessCloneDataType.ClearAndFillFromCompleteTable)