manejar error executenonquery

[tienda]

hola amigos, espero me puedan ayudar, tengo que copiar los datos de una base de datos a otra, ocurre que en ocasiones la base de datos de dónde se recoge la información no tiene los mismo campos que la que recibe la información, por ese motivo necesito decirle al programa que si es así la omita, pero no se como...

Dim comadosP = conexion.CreateCommand
comadosP.CommandType = CommandType.Text

comadosP.CommandText = "insert into onalH SELECT * FROM [MS Access;DATABASE=" & TextBox1.Text & "].[onalH]"
'comadosP.Parameters.AddWithValue("@FI", Fecha1.Value.Date.ToString("dd/MM/yyyy"))
'comadosP.Parameters.AddWithValue("@FF", Fecha2.Value.Date.ToString("dd/MM/yyyy"))


conexion.Open()
frmProgressbar.Show()
frmProgressbar.Text = "Actualizando Ventas"

Dim Lecto3 = comadosP.ExecuteNonQuery