Hello! I revive my project last 3yrs ago and i renamed the CourseIDcolumn to CellgroupID on my ms access which i think ended with this problem.
I totally forgot how to use VB. Can someone help me?


Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
frmcourse.Show()
Me.Hide()
End Sub

Error: ArgumentExecption was unhandled
Cannot bind to the property or column CourseID on the DataSource.
Parameter name: dataMember


Public Class frmcourse

Private Sub frmcourse_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
e.Cancel = False
frmmain.Show()
End Sub



Private Sub frmcourse_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'StdntinfoDataSet.Student' table. You can move, or remove it, as needed.
Me.StudentTableAdapter.Fill(Me.StdntinfoDataSet.Student)
'TODO: This line of code loads data into the 'StdntinfoDataSet.Department' table. You can move, or remove it, as needed.
Me.DepartmentTableAdapter.Fill(Me.StdntinfoDataSet.Department)
'TODO: This line of code loads data into the 'StdntinfoDataSet.Course' table. You can move, or remove it, as needed.
Me.CourseTableAdapter.Fill(Me.StdntinfoDataSet.Course)

Me.CourseIDLabel1.BackColor = Color.White
Me.CourseIDLabel1.BorderStyle = BorderStyle.FixedSingle
Me.ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList
Me.BackColor = Color.FromArgb(192, 192, 255)
Button1.BackColor = Color.FromArgb(255, 192, 192)
Button2.BackColor = Color.FromArgb(255, 224, 192)
Button3.BackColor = Color.FromArgb(255, 255, 192)
'Button4.BackColor = Color.FromArgb(192, 255, 192)
'AcceptButton = Button4
Me.ComboBox1.DropDownHeight = 150
Me.ComboBox2.DropDownHeight = 150
Me.MaximizeBox = False
Me.Text = "COURSE"

For Each item As Control In GroupBox1.Controls
If TypeOf item Is TextBox Then
DirectCast(item, TextBox).BorderStyle = BorderStyle.FixedSingle
'DirectCast(item, TextBox).TextAlign = HorizontalAlignment.Center
End If
Next

For Each item As Control In Me.Controls
If TypeOf item Is Button Then
DirectCast(item, Button).FlatStyle = FlatStyle.Flat
DirectCast(item, Button).Cursor = Cursors.Hand
DirectCast(item, Button).TabStop = False
End If
Next
For Each item As Control In GroupBox1.Controls
If TypeOf item Is ComboBox Then
DirectCast(item, ComboBox).DropDownStyle = ComboBoxStyle.DropDownList
End If
Next

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'add new
Me.CourseBindingSource.AddNew()
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Me.Close()
frmmain.Show()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'check and save
Try

Dim nCount = 0
For Each item As Control In GroupBox1.Controls

If item.Text = Nothing Then
nCount = nCount + 1
End If

Next

If nCount <> 0 Then
MsgBox("Please fill up all fields.")

Else
If MsgBox("Do you want to save this record?", MsgBoxStyle.OkCancel) = MsgBoxResult.Ok Then

Me.Validate()
Me.CourseBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.StdntinfoDataSet)
Me.CourseTableAdapter.Fill(Me.StdntinfoDataSet.Course)

End If

End If


Catch ex As Exception

End Try

End Sub

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

End Sub
End Class