>Here is the code.
>
>Private Sub Edit_btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Edit_btn.Click
>
> DepartmentEdit.Show(Me.Depts_LookupDataSet)
>
>End Sub


Hmmmm.... and that worked before?

This is what you need to do:

Dim frmDepartmentEdit1 As New DepartmentEdit(Me.Depts_LookupDataSet)
frmDepartmentEdit1.Show
'You can also do frmEditDepartment1.ShowDialog