hola. les comento que tengo este pequeño codigo en plataforma .Net 2008...
pero me da este error de abajo
desearía que me pudieran ayudar. gracias
Rst = New ADODB.Recordset
Rst.CursorLocation = ADODB.CursorLocationEnum.adUseServer
Rst.Open(vSQL, vC, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic)
If Rst.RecordCount > 0 Then
Do
GrdCobro.AddItem(Rst.Fields.Item("idcobro").Value & vbTab & Format("01/" & Rst.Fields.Item("mes").Value, "mmmm") & vbTab & Format(Rst.Fields.Item("fechapago").Value, "dd/mm/yyyy") & vbTab & Rst.Fields.Item("mensualidad").Value & vbTab & Rst.Fields.Item("inscripcion").Value
Rst.MoveNext()
Loop Until Rst.EOF
End If
Exit Sub
End If
Rst.CursorLocation = ADODB.CursorLocationEnum.adUseServer
Rst.Open(vSQL, vC, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic)
If Rst.RecordCount > 0 Then
Do
GrdCobro.AddItem(Rst.Fields.Item("idcobro").Value & vbTab & Format("01/" & Rst.Fields.Item("mes").Value, "mmmm") & vbTab & Format(Rst.Fields.Item("fechapago").Value, "dd/mm/yyyy") & vbTab & Rst.Fields.Item("mensualidad").Value & vbTab & Rst.Fields.Item("inscripcion").Value
Rst.MoveNext()
Loop Until Rst.EOF
End If
Exit Sub
End If
Error 1 Option Strict On prohíbe operandos de tipo Object para el operador '&'.