مشكلة الكمبو بوكس مع class

هلا انا سويت كلاس وربط مع قاعة البيانات بس المشكلة انو بدي اخلي الكمبو بوكس يعبي البيانات من خلال الكلاس

كتبت الكود بس مازبط معاي

هذا الكود المجود بالكلاس

  ''' <summary>
	''' This Method For Select Specialization Aouthor
	''' </summary>
	Public Function Select_Sp() As Data.DataSet
		con.ConnectionString = Class1.con
		Dim da1 As New SqlDataAdapter("select * from Sp", con)
		Dim ds1 As New DataSet
		da1.Fill(ds1)
		Return ds1
	End Function

زهذا الكود الموجو بالفورم

 Dim t As New ClassLibrary1.Class2
		Dim s As New DataSet
		s = t.Select_Sp
		Me.ComboBox1.DataSource = s.Tables(0)
		Me.ComboBox1.DisplayMember = s.Tables(0).Rows(0)(0)
		Me.ComboBox1.ValueMember = s.Tables(0).Rows(0)(1)

طيب ممكن اعرف الحل