Cómo usar vb para crear un pequeño programa de consulta de datos SQL

El código vb6 es el siguiente, agregar módulo, proyecto--propiedades--iniciar selección de objeto sub main

Sub main()

Abrir "c: \temp\ 25.txt" Para entrada como #1

Clipboard.Clear

Clipboard.SetText StrConv(InputB(LOF(1), 1), vbUnicode)

Fin del subtítulo