Public Function AddNewRowInDatabase(InsertSQl As String) As Object
        Dim command As New OleDbCommand(InsertSQl, _wDS.Connection)
        _wDS.ConnectionOpen()
        command.ExecuteNonQuery()
        command.Parameters.Clear()
        command.CommandText = "Select @@Identity"
        Return command.ExecuteScalar
End Function