Visual Basic

Using con = New SqlConnection(My.Settings.SqlServerConnectionString)
    Using da = New SqlDataAdapter(sqlSelect, con)
        da.Fill(table)
        Return table
    End Using
End Using

Dim conxnString As String = My.MySettings.sqlConnectionString

Dim conxnString As String = My.Settings.sqlConnectionString

Private Function cboCampuses_SelectedValueChanged(sender As Object, e As EventArgs) Handles cboCampuses.SelectedValueChanged
       Dim selectedValue As String
       selectedValue = cboCampuses.SelectedValue
       Me.StaffEvaluationDGV.DataSource = GetDataSource(selectedValue)
   End Function

   Private Function GetDataSource(selectedValue) As DataTable
       Dim sqlSelect As String = "SELECT * FROM tblEvaln " &
          "WHERE CampusName = " & selectedValue

       Dim SqlConnection As SqlConnection
       Dim conxnString As String = My.MySettings.sqlConnectionString
       Try
           Dim table = New DataTable()
           Using con = New System.Data.SqlClient.SqlConnection(conxnString)
               con.Open()
               Using da = New System.Data.SqlClient.SqlDataAdapter(sqlSelect, con)
                   da.Fill(table)
                   Return table
               End Using
           End Using
       Catch ex As Exception
           ' Error message here
       End Try
   End Function

DutchComputerKid wrote:

I have no idea how this forums works anymore