شباب مشكله بكود فى الكمبو بكس لعرض بيانات داخل اكثر من كمبو بكس

بس الله الرحمن الرحيم

السلام عليكم انا اواجه مشكله 

وهى عند كتابه كود مثلا رقم تسلسلى لكمبو بكس لعرض باقى البيانات داخل اكثر من كمبو بكس عند تشغيل البرنامج والاختيار من الكمبو بكس تظهر هذه الرسال

    Private Sub ComboBox9_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox9.SelectedIndexChanged
        Dim sqlQRY As String = "SELECT * FROM cus WHERE cusID = '" & ComboBox9.Text & "'"
        Try
            With Con
                If .State = ConnectionState.Open Then .Close()
                .Open()
            End With

            Dim da As Common.DbDataAdapter = New OleDbDataAdapter(sqlQRY, Con)
            Dim ds As DataSet = New DataSet
            da.Fill(ds, "cus")
            Dim dt As DataTable = ds.Tables("cus")
            Dim row As DataRow
            For Each row In dt.Rows
                ComboBox9.Text = row("cusID")
                ComboBox2.Text = row("cusName")
                ComboBox3.Text = row("cusAddress")
            Next row


        Catch ex As Common.DbException
            MsgBox("Error: " & ex.ToString & vbCrLf)
        Finally
            Con.Close()
        End Try
    End Sub