TXT en Visual Basic

[Mmc]

Creas un DSN Usuario le das un nombre, luego pasa este nombre a la variable
glbConexion, y listo. En lo personal tomo este dato de un archivo ?????.INI

Declaración de variables:

Global glbConexion As New ADODB.Connection
Global RsSql As New ADODB.Recordset
Global SQL As String
------------------------------------------------
BUSCAR DATOS

SQL = "SELECT "
SQL = SQL & " C.RUT, C.NOMBRE, C.TELEFONO, "
SQL = SQL & " C.DIRECCION, M.NOMBRE as COM "
SQL = SQL & " FROM "
SQL = SQL & " Clientes C "
SQL = SQL & " INNER JOIN Comunas M ON "
SQL = SQL & " C.COD_COMUNA = M.COD_COMUNA "
SQL = SQL & " WHERE "
SQL = SQL & " C.RUT = '" & Trim(xtxRut.Text) & "-" & Trim(xtxRut.TextDV) & "'"
Set RsSql = glbConexion.Execute(SQL)
If Not RsSql.EOF Then
xtxNombre.Text = RsSql.Fields("NOMBRE")
xtxFono.Text = RsSql.Fields("TELEFONO")
xtxDirec.Text = RsSql.Fields("DIRECCION")
xtxComuna.Text = RsSql.Fields("COM")
End If

Nota: Para insertar, actualizar, eliminar. Son exactamente iguales, solo debes controlar las diferentes propiedades de las sentencias SQL.