Binding data to a dropdownlist problem

 Hi, Not getting any errors but nothing is appearing on the dropdownlist when running, i reckon I'm not binding it correctly.
 
            Dim DBConn = New SqlConnection
            Dim aConnectionString4 As String
            Dim SQLQuery4 As String
            Dim SqlDataAdapter1 = New SqlDataAdapter
            Dim SqlDataSource1 = New SqlDataSource
            aConnectionString4 = "Data Source=CIARAN-PC\SQLEXPRESS;Initial Catalog=Test1;Integrated Security=True"
            DBConn.ConnectionString = aConnectionString4
 &nbs ...