Podría ser de esta manera:
Dentro del evento load del formulario...

If IsDBNull(Tabla.Rows(0).Item(0)) Then
txtempresa.Text = ""
Else
txtempresa.Text = dr.Rows(0).Item(0)...