Bueno este mensaje me da cuando quiero llenar un listview de una BD. Asi lo lleno.
Código:
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
¿Que puede ser

?