El codigo que pongo al cargar el formulario que es cuando no me sale el primer campo es el siguiente:
Private Sub Form_Load()
On Error GoTo t_err
Dim nreg As Integer
' conexion del adodc al hacer el .exe
AdodcTA02.ConnectionString = conexion
AdodcTA02.RecordSource = " select * from ta02 order by ta0201 "
AdodcTA02.Refresh
SSPanel5.Caption = Format(Date, "Long Date")
confirmar.Enabled = False
cancelar.Enabled = False
SSPanel9.Caption = AdodcTA02.Recordset.RecordCount & " Reg."
nreg = AdodcTA02.Recordset.RecordCount
If nreg > 0 Then
AdodcTA02.Recordset.MoveFirst
End If
Desactivar_Casillas
buscar.Visible = True
fecha.Visible = False
fecha.Value = Date
Combo1.ListIndex = 0
condicion.ListIndex = 0
frmTA02.Height = 0
frmTA02.Width = 0
formato
If parametro2 <> "" Then
nuevo_Click
TA0201.Text = parametro2
parametro2 = ""
End If
frmTA02.Top = 200
frmTA02.Left = 1200
Exit Sub
t_err:
MsgBox "Se ha producido el Error: " & Err & " " & Error, 0, "Error"
Exit Sub
End Sub