Visual Basic

Dim cmdText As String
cmdText = "SELECT tblStaffInfo.StaffName, tblCampuses.CampusName,
           LessonPlanning, LessonPreprn, Regularity,
           ((LessonPlanning + LessonPreprn + Regularity)/3 ) AS AvgScore
            FROM tblStaffInfo
            INNER JOIN tblCampuses
            ON tblStaffInfo.CampusID = tblCampuses.CampusID
            INNER JOIN tblStaffEvaluation
            ON tblStaffEvaluation.StaffID = tblStaffInfo.StaffID
            ORDER BY tblStaffInfo.StaffName"

Private Function GetDataSource(strCampusName) As DataTable
    Dim cmdText As String = "SELECT * from tblStaffInfo tbl WHERE tbl.CampusName = " + strCampusName
    Dim conxnString As String = "Data Source=Raabi\SQLEXPRESS;
     Initial Catalog=StaffReport; Integrated Security=True"
    Dim DGVadapter As New SqlDataAdapter()
    Dim ds As New DataSet()
    Dim conxn As New SqlConnection(conxnString)
    Dim cmd As SqlCommand = conxn.CreateCommand()
    Try
        cmd.CommandText = cmdText
        DGVadapter.SelectCommand = cmd
        conxn.Open()
        DGVadapter.Fill(ds)
        Return ds.Tables(0)
        conxn.Close()
    Catch ex As Exception
        MsgBox("Error: " & ex.Message)
    End Try
End Function

Dim cmdText As String = "SELECT * from tblStaffInfo tbl WHERE tbl.CampusName = CityCampus"

Private Function GetDataSource() As DataTable
    Const sqlSelect As String = "SELECT a.Col1 AS aCol1, a.Col2 AS aCol2, b.Col1 AS bCol1, b.Col2 AS bCol2 " & _
           "FROM dbo.TableA AS a 
			INNER JOIN dbo.TableB AS b ON a.IdCol = b.aIdCol " & _
           "ORDER BY aCol1 ASC, bCol1 ASC"
    Try
        Dim table = New DataTable()
        Using con = New MySqlConnection(My.Settings.MySqlConnectionString)
            con.Open()
            Using da = New MySqlDataAdapter(sqlSelect, con)
                da.Fill(table)
                Return table
            End Using
        End Using
    Catch ex As Exception
        ' log message instead '
        Throw ' don't use throw new Exception or throw ex '
    End Try
End Function
me.DGV1.DataSource = GetDataSource()