vb.net - vb.netでコンボボックスにバインドしていますが、エラー「オブジェクト参照...」

Question

コンボボックスでバインドしたい。「オブジェクト参照がオブジェクトのインスタンスに設定されていません」というエラーです。

このコード:

Private Sub cbSection_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbSection.SelectedIndexChanged
        Dim Find As Boolean = False
        Dim ds2 As New DataSet
        Dim sb2 As New StringBuilder
        Dim da2 As New SqlDataAdapter

        sb2.Remove(0, sb2.Length)
        sb2.Append("SELECT DISTINCT Team")
        sb2.Append(" FROM Employee")
        sb2.Append(" WHERE (Section='" & cbSection.SelectedValue & "')")
        sb2.Append(" ORDER BY Team")
        Dim sqlTeam As String = sb2.ToString()

        If Find = True Then
            ds2.Tables("Team").Clear() >>>>>>> This Error
        End If

        da2.SelectCommand.CommandText = sqlTeam
        da2.Fill(ds2, "Team")
        If ds2.Tables("Team").Rows.Count <> 0 Then
            Find = True
            With cbTeam
                .DisplayMember = "Team"
                .ValueMember = "Team"
                .DataSource = ds2.Tables("Team")
            End With
        Else
            Find = False
        End If
    End Sub

私はそれがすべて正しいオブジェクトをチェックします。しかし、今はエラーです。

お時間をいただきありがとうございます。:)