If anyone would have a few minutes to look over the attached code, and let
me know what I am doing wrong with the code for the "Show Info" button
(click event) on frmMain.  I keep getting errors ranging from "no current
record" to "The action was cancelled by an associated object", depending on
whether I have the "data1.recordset.movefirst" remmed out or not.  I am a
newbie, so please don't be too {*filter*} me.

Thanx

--
Well, It's gotta be Noon somewhere!
begin 600 prog.zip
<uuencoded_portion_removed>
D8 ``4')O:C$P8RYV8G!02P4&`````!0`% !V! ``FF(`````
`
end

Private Sub cmdShowAll_Click()
    lstMovies.Clear

    Do While Not Data1.Recordset.EOF
        lstMovies.AddItem Data1.Recordset.Fields("Title").Value
        Data1.Recordset.MoveNext
    Loop

    Data1.Recordset.MoveFirst
End Sub

Private Sub cmdViewInfo_Click()

    Let strsearchfor = lstMovies.Text

    frmMain.Hide
    frmInfo.Show
    Let intfound = 0

    Do While intfound = 0 And Not Data1.Recordset.EOF
        '//                                  ("Titles") <= wrong
        If Data1.Recordset.Fields("Title").Value = strsearchfor Then
            Let intfound = 1
        Else
            Data1.Recordset.MoveNext
        End If
    Loop

    Data1.Recordset.MoveFirst

    If intfound = 0 Then
       MsgBox "no record"
    Else
        frmInfo.picInfo.Print strsearchfor
    End If

End Sub

I found a few mistakes and corrected.

// in your frmMain

Private Sub cmdViewInfo_Click()

    Let strsearchfor = lstMovies.Text

    frmMain.Hide
    frmInfo.Show
    Let intfound = 0

    Do While intfound = 0 And Not Data1.Recordset.EOF
        '//                                  ("Titles") <= wrong
        If Data1.Recordset.Fields("Title").Value = strsearchfor Then
            Let intfound = 1
        Else
            Data1.Recordset.MoveNext
        End If
    Loop

    Data1.Recordset.MoveFirst

    If intfound = 0 Then
       MsgBox "no record"
    Else
        frmInfo.picInfo.Print strsearchfor
    End If

End Sub