You've already got everything you need, you just need to reorganize it.
Put this code into a method that passes in the the file names, and the data table as parameters. Then call it for each file you want to add to the report. Move these statements to be called only once after you've called your method:
Dim rptobj As New CrystalReport1
rptobj.SetDataSource(dt)
CrystalReportViewer1.ReportSource = rptobj
--------------------------------------
Okay, I'll give you one more push in the right direction. Create a method like this:
Private Sub AddImage(ByRef dt As DataTable, ByVal strFileName As String)
End Sub
Now where you used to have your code, put something like this:
Dim dt as New DataTable
AddImage(dt, "10157.Jpg")
AddImage(dt, "secondImage.jpg")
AddImage(dt, "thirdImage.jpg")
Dim rptobj As New CrystalReport1
rptobj.SetDataSource(dt)
CrystalReportViewer1.ReportSource = rptobj
You'll have to work out any little bugs I've missed, but this should get you started.