adding items to list box control from a dataset

in this code the lstall.items.add  generate error

Argument not specified for parameter item??  

          If txtGroup.Text <> "" Then
                lstAllSem.Items.Clear()
                lstSelSem.Items.Clear()
                txtGroup.Text = Replace(txtGroup.Text, "'", "''")
                lstallAdp = New SqlDataAdapter("select * from meet_master where muf_8 = '" & txtGroup.Text & "'", sqlCnn)
                Try
                    lstallAdp.Fill(da)
                Catch ex As Exception
                End Try
                If da.Tables(0).Rows.Count = 0 Then
                    '            MsgBox("No program group available. Selection of other Seminars  not possible.. Continue?", vbYesNo)
                Else
                    Dim dta As DataTable
                    Dim dro As DataRow
                    dta = da.Tables(0)

                    For Each dr0 In dta.Rows

                        lstAllSem.Items.Add = da.Tables(0).Rows(0)("meeting").ToString()
                    Next dr0

                    dta.Dispose()

                End If

            End If

Select all Open in new window

Any help greatly appreciated.