Visual Basic - sistema de facturacion

Hola chic@s:
les escribo para ver como hago con un codigo.
tengo un sistema de facturacion en el cual voy ingresando articulos en un datagrid, cuando sale de la primer celda del dgrid lo valido a ese articulo yo hice esto pero no anda

If DG1.Col = 0 Then
If DG1.Text = "" Then
GoTo salio:
End If
Dim codart As String
'repite
With dtetecno.rsingreso
If .RecordCount >= 1 Then
.MoveFirst
DG1.Col = 0
codart = "Idarticulo =" + Trim(DG1.Text)
'dtetecno.rsart.MoveFirst
dtetecno.rsingreso.Find codart, 0, adSearchForward
If available Then
MsgBox "ELARTYAESTA", vbCritical
Else
GoTo salio:

'codart =
'.Find "codart='" & Trim(DG1.Text) & "'", 0, adSearchForward

If .EOF Then
DG1.Text = dtetecno.rsart!detalle
DG1.Col = 2
DG1.Text = dtetecno.rsart!tipo
DG1.Col = 4
DG1.Text = dtetecno.rsart!puint

Else
DG1.Col = 1
MsgBox "ELARTYAESTA", vbCritical
DG1.Col = 0
DG1.SetFocus
Exit Sub
End If
End If
End With
Gracias - fede