Problemas con un insert en un dataTable en VB.Net

[josiasdaniel_]

He solucionado el problema, y les comparto la forma como me quedó el código al compilar el programa.

Código:

 Try
            txt_codEmp.Text = adapter.CodMax + 1
            If txt_codEmp.Text.Length > 0 And txt_razonSocial.Text.Length > 0 And txt_rif.Text.Length > 0 Then
                adapter.InsertNewReg(txt_codEmp.Text, txt_razonSocial.Text, txt_rif.Text)
            End If
            Me.Th_EmpresaTableAdapter.Fill(Me.TH_nomina0000thEmpresa.th_Empresa)
        Catch ex As Exception
            Console.WriteLine(ex.Message)
        End Try

De esta forma ayudo a cualquiera que tenga una duda similar.