SoloCodigo

Para saber si se te puede ayudar, se requiere que especifiques cuales componentes te hacen falta.

No proporcionas la suficiente información para ayudarte.
Te falta: Especificar cuando se presenta el error (en la instalación o al correrlo) y cual es el texto que se muestra cuando aparece el error.

No...

Para fines prácticos no existe tal cosa.
Unos buenos hábitos de programación, incluyen que elabores rutinas que manejen todas las posibles causas de error, tanto por lo que introduzca el usuario como las que se generen por errores en VB ó Sistema Operativo. Y aún así pueden aparecer errores que no has tomado en cuenta.
El que un programa tenga algo como "Error 7, problemas por falta de memoria" y se cierre, te deja muy mal parado como programador.
Si elaboras una rutina para que el usuario introduzca datos por ejemplo números en una caja de texto, se debe limitar en el evento Keypress lo que se introduce a esa caja de texto a números y no necesitarás manejo de errores en esa rutina.

Hay varios motivos por los cuales debes colocar rutinas para manejar errores. La primera es por si acaso: Si piensas que tus rutinas son a toda prueba, no falta un impoderable que no habías tomado en cuenta y la aplicación se caiga.
La segunda es por errores más allá de tu control, como un disco con errores, o que el usuario, no introdujo el disco (floppy), o la impresora apagada.
Una tercera es para que te avise que rutina generó el error.

Parece ser que el nuevo VB.Net tiene un manejo más estructurado de manejo de errores.

En resumen no te librarás de codificar, para manejo de errores.

Prueba con lo siguiente:

If IsDate(txtFecha.Text) Then
  'código
Endif

Para modificar la fecha y/o la hora usa estos comandos, según lo que existan en cuadros de texto que crees.

Date = txtDate.Text
Time = txtTime.Text

En la ayuda de VB busca:
"Formatos de fecha/hora definidos por el usuario", para una descripción completa.

Trata de la siguiente forma:

    Text1.Text = Format(Date, "dd/mmm/yyyy")

El instalador de Visual Basic si funciona, solo hay que hacer algunos arreglos.

La causa del su principal problema es que cuando sale un aviso con algo parecido a esto:
"Los archivos del sistema no están actualizados, debe reiniciar Windows e intente instalar el programa nuevamente"
En inglés aparece algo así:
System Files Are Out of Date
Y al reiniciar Windows e intentar instalar nuevamente la aplicación, se repite el error nuevamente, no importa cuantas veces intentes la instalación.
En el sitio de Microsoft dan varias razones para el problema, pero ninguna solución práctica.
Al parecer el problema se debe a que Win2000, WinMe y WinXP tienen un mecanismo de autorrecuperación cuando se actualizan los archivos del sistema.

Al revisar los archivos que se generan durante la instalación encuentro que hay una serie de ellos con nombres como estos:
ST6UNST.000, ST6UNST.001, ST6UNST.002, ST6UNST.003 ó más dependiendo de cuantas veces trataste de instalar el programa.
En estos archivos viene información de que archivos se copiaron o actualizaron, con datos como lo que sigue:

ACTION: SystemFile: "C:WINNTsystem32OLEAUT32.DLL"
(No se puede encontrar el archivo o es de una versión antigua; se ha copiado el archivo nuevo)

Revisando los últimos archivos con números más altos (ST6UNST.003) se observa que se repite la copia de archivos una y otra vez.

La solución que encontré es que el instalador tenga los archivos con una versión igual a la de Win2000, ya que este Windows es el que tiene las versiones de archivos más antiguos.

Coloqué este tipo de archivos en el directorio:
C:Archivos de programaMicrosoft Visual StudioVB98WizardsPDWizardRedist
El programa de instalación tomará los archivos del anterior folder.

Las versiones antiguas de los siguientes archivos o en su caso las que existen en el Windows donde deseas instalar, en el caso el Win2000

OLEAUT32.DLL   2.40.4512.0
OLEPRO32.DLL   5.0.4512.0
STDOLE2.TLB    2.40.4512.0

ASYCFILT.DLL   2.40.4514.0
EXPSRV.DLL     6.0.8540
MFC40.DLL      4.1.0.6140
MSVCRT.DLL     6.1.8637.0
MSVCRT40.DLL   4.22.0000

Estas versiones son las que se encuentran en Win2000pro

Si aún no puedes instalar. Cuando te pregunte si quieres reiniciar la computadora para actualizar los archivos elige NO, y revisa el último archivo de instalación ST6UNST.00x y verifica en que línea dice algo así, como anteriormente lo expliqué.

ACTION: SystemFile: "C:WINNTsystem32expsrv.dll"
(No se puede encontrar el archivo o es de una versión antigua; se ha copiado el archivo nuevo)

Procede a copiar el archivo que te diga desde el equipo con Win2000 a el folder C:...PDWizardRedist

Espero esta información esté lo suficientemente explicada.

Me ha funcionado en SelectionFormula de Crystal la instrucción con siguiente formato: Date("yyyy,m,d")

            CrystalReport.SelectionFormula = "{Fichas.FECHA}=Date(" & Format(DTPicker1, "yyyy,m,d") & ")"

El Visual Basic versión 4 de 16 bits que viene en la edición profesional es la mejor herramienta para hacer programas en Win 3.11  pero no sirve para DOS:comp:

Encontré la siguiente solución para el instalador de VB 6
Coloque en el directorio:
C:Archivos de programaMicrosoft Visual StudioVB98WizardsPDWizardRedist

Las versiones antiguas de los siguientes archivos o en su caso las que existen en el S.O. donde deseas instalar, en tu caso el Win2000

OLEAUT32.DLL      2.40.4514.0   
OLEPRO32.DLL      5.0.4514.0
ASYCFILT.DLL      2.40.4514.0
STDOLE2.TLB      2.40.4514.0
EXPSRV.DLL      6.0.8540
MFC40.DLL      4.1.0.6140
MSVCRT.DLL      6.1.8637.0
MSVCRT40.DLL      4.22.0000

Estas versiones son las que se encuentran en Win2000pro
El programa de instalación tomará los archivos del anterior directorio.

Si aún no puedes instalar. Cuando te pregunte si quieres reiniciar la computadora para actualizar los archivos elige NO, y revisa el último archivo de instalación St6unst.00x y verifica en que línea dice algo así

ACTION: SystemFile: "C:WINNTsystem32expsrv.dll"
(No se puede encontrar el archivo o es de una versión antigua; se ha copiado el archivo nuevo)

Procede a copiar el archivo que te diga desde el equipo con Win2000 a el folder C:...PDWizardRedist

Espero esta información esté lo suficientemente explicada.

Usa el evento KeyDown.
El código siguiente te muestra en la ventana del debuger los códigos de las teclas que presiones.

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    Debug.Print KeyCode, Shift
End Sub

Coloca una referencia a Crystal Report, y añade el control a una forma y llámalo "CrystalReports", después agrega una rutina parecida a esta.

' Reporte de incapacidades
Sub PrintMainReport()
    Dim strFile As String
    On Error GoTo ErrorPrintReport
    strFile = gstrAppPath & "incapacidades.rpt"
    'open and fill report
    With CrystalReports
        .ReportFileName = strFile
        .ReportTitle = strFile
        .DataFiles(0) = gstrDBFilename
        .SelectionFormula = "ISNULL({Fichas.IMSS}) OR {Fichas.IMSS}=''"
        '.SQLQuery = "SELECT * FROM " + "VIEW" + strSelected
        .PrinterCopies = 1
        .PrinterCollation = crptDefault
        .WindowControls = True
        .WindowBorderStyle = crptSizable
        .WindowControlBox = True
        .WindowState = crptMaximized
        .WindowTitle = .ReportFileName
        .Destination = crptToWindow
        .PrintReport
    End With
Exit Sub
ErrorPrintReport:
    GenErrorHandler "frmMain/PrintMainReport()", Err.Number, Err.Description
End Sub

El código funcionará si retiras las comillas simples.
adodc1.recordsourse= "SELECT campo1, " & combo1.text & " FROM tabla WHERE campo1= 10"