Visual Basic

    Dim conxnString As String = "Data Source=Raabi\SQLEXPRESS; Initial Catalog=StaffReport; Integrated Security=True"
    Dim conxn As New SqlConnection(conxnString)
    Dim cmd As SqlCommand = conxn.CreateCommand()
    Dim StaffInfoDS As New DataSet()
    Dim StaffInfoAdapter As New SqlDataAdapter()
    Dim StaffInfoTbl As DataTable
    
Private Sub PopulateStaffInfoDGV()
        Dim cmdText As String
        cmdText = "SELECT StaffID, StaffName, tblCampuses.CampusName, Designation, DOB, Gender, NIC, DateOfJoining
            FROM tblStaffInfo
            INNER JOIN tblCampuses
            ON tblStaffInfo.CampusID = tblCampuses.CampusID"

        Try
            cmd.CommandText = cmdText
            StaffInfoAdapter.SelectCommand = cmd
            conxn.Open()
            StaffInfoAdapter.Fill(StaffInfoDS, "StaffInfoTbl")
            StaffInfoDGV.DataSource = StaffInfoTbl
            conxn.Close()
        Catch ex As Exception
            MsgBox("Error: " & ex.Message)
        End Try
End Sub

Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
        Dim cmdbldr As New SqlCommandBuilder(StaffInfoAdapter)

        cmdbldr.GetUpdateCommand()
' Causes Error: Dynamic SQL generation is not supported against multiple base tables.

        StaffInfoAdapter.Update(StaffInfoDS, "StaffInfoTbl")
End Sub

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"