Código:
¿Que puede ser Private Sub frmVehiculos_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Try xCon = New Conn xCon.connectMe("SELECT * FROM vehiculos") Try xCon.Cmd.Connection = xCon.Cn Dim d As OleDb.OleDbDataReader = xCon.Cmd.ExecuteReader() Do While d.Read item1 = ListView1.Items.Add(d("idvehiculo".ToString)) With item1 .SubItems.Add(d("idempresa".ToString)) .SubItems.Add(d("idvendedor".ToString)) .SubItems.Add(d("modelo".ToString)) .SubItems.Add(d("noeconomico".ToString)) End With Loop Catch err As System.Exception MsgBox(err.Message) End Try Catch err As System.Exception MsgBox(err.Message) End Try End Sub Conn es una clase que tiene la funcion Function connectMe(ByVal sqlString) As Boolean Try Cn.ConnectionString = constr Cn.Open() Cmd.CommandText = sqlString Return True Catch err As System.Exception MsgBox(err.Message) Return False End Try End Function
