>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