Visual Basic - Cual es el problema???

cual es el problema de la siguiente funcion:
Function Nombres()
Dim i As Integer
Dim s As String
SinNombre = False
Me.Data1.Recordset.MoveFirst

For i = 0 To Me.Data1.Recordset.RecordCount - 1

If Me.Data1.Recordset.Fields("Nombre Curso") = Null Then
SinNombre = True

End If

Me.Data1.Recordset.MoveNext
Next i

If SinNombre = True Then
MsgBox "Todos los cursos deben tener nombre"
Else
End If

End Function
gracias

Hola

Primero que nada.. ¿que problema te da? a simple vista parece estar bien, lo unico que no me gusta del codigo es que estas creando una funcion llamada Nombres, la cual no tiene tipo de retorno, en primer lugar, y nunca asignas nada para retornar en segundo lugar.

Es decir, si creas una funcion llamada Nombres, en algun lugar del codigo debes una linea que diga Nombres = algo. Si no deseas hacer eso, entonces no uses una función sino un procedimiento (cambia Function por Sub)

De repente ese es el problema... cualquier cosa responde

Saludos