Foros del web, para los que viven de bits

Hola chicos, por favor podrian ayudarme en este codigo, necesito pasarlo a vb.net el siguiente codigo:

Set rsEmpresas = New Recordset
rsEmpresas.Open "Select * From SL016EMPRESAS", DbConex, adOpenStatic, adLockBatchOptimistic
For X = 0 To TxtDatos.Count - 1
TxtDatos( X ).DataField = rsEmpresas.Fields( X ).Name
Set TxtDatos( X ).DataSource = rsEmpresas
Next

Alguna ayuda seria re bueno Graciasss